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IDENTIFICATION 
PRODUCT CODE: AC-B088B=M( 
PRODUCT NAME : CVMNBBO MNCDI (DIGITAL IN) DIAGNOSTIC TEST 
DATE: JULY 1979 
MAINTAINER: DIAGNOSTIC ENGINEERING 


COPYRIGHT (C) 1978,1979 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE 
COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT 
BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR 
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE 
ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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2.0 


2.1 


ABSTRACT 


HE ''B’* VERSION CORRECTS A PROGRAM BUG IN THE TESTER SECTION. 
THE MNCDI DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED 

TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE. 
ADDITIONAL ROUTINES ARE PROVIDED TO VERIFY ADDITIONAL SECTIONS. 
TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL 
VIA THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5. 


REQUIREMENTS 


EQUIPMENT 


1. 


PDP11/03 COMPUTER OR LSI-11_ PROCESSOR 


2. DLVil WITH 1/0 TERMINAL (LA36, VT100, ETC.) 

3. MNCDI (DIGITAL IN) OPTION 

STORAGE 

THE PROGRAM USES THE LOWER 4K OF MEMORY. 

LOADING PROCEDURE <XXDP> 

1. ENSURE THAT THE DIAGNOSTIC LOAD MEDIA IS INSTALLED IN DRIVE 0. 

2. BOOT THE MEDIA BY TYPING °'173000G"" IF IN THE ODT MICRO-CODE 
STATE OR CYCLING THE POWER ‘ON-OFF‘’ SWITCH. 
UPON SUCCESSFUL BOOTING OF THE LOAD MEDIA, THE XXDP MONITOR 
WILL IDENTIFY ITSELF AND INFORM THE OPERATOR OF THE OPERATING 
OPTIONS THAT MAYBE SELECTED. 

4. THE OPERATOR SHOULD TYPE ‘R VMNB??"’ FOLLOWED BY A "RETURN" 


THE XXDP MONITOR WILL LOAD THE PROGRAM [NTO MEMORY AND START 
THE PROGRAM AT LOCATION 200. 


STARTING PROCEDURE 


THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 
THE PROGRAM WILL NOW ASK FOR AN INITIAL SWITCH REGISTER 
VALUE TO BE STORED IN THE SOFTWARE SWITCH REGISTER. 


THE PROGRAM WILL NOW DISPLAY THE MENU OF TEST OR LOOPS AVAILABLE. 


THE OPERATOR SELECTS THE TESTS BY Ni THE SELECTED CHARACTER 
FOLLOWED BY DEPRESSING THE *RETURN'' KEY 


Aermarsintl START 


200 STARTING ADDRESS OF THE PROGRAM 
204 RESTART ADDRESS OF THE PROGRAM 
210 STARTING ADDRESS FOR THE OPTION TESTER. 


SEQ 0003 


5.0 


Ww 


6.2 


SOFTWARE SWITCH REGISTER 


OPTIONS 

SWITCH OCTAL FUNCTION 

Sw15=1 100000 HALT ON ERROR 

SW14=1 040000 LOOP ON TEST 

Sw 3=1 020000 INHIBIT ERROR TYPEOUTS 
SwW12=1 010000 INHIBIT SIZING THE NUMBER OF MNCDI'S 
SWw11=1 004000 INHIBIT ITERATIONS 

SW10=1 002000 BELL ON ERROR 

SWO9=1 001000 LOOP ON ERROR 

SwO8=1 0004 Xx LOOP ON TEST IN SWR <7=0> 
CONTROL 


1. 


THE TEST OR LOOP MAYBE STOPPED BY TYPING THE ‘‘CONTROL & C"’ 
KEYS. IHIS OPERATION WILL STOP THE PROGRAM AND ENABLE 

THE OPERATOR TO SELECT DIFFERENT PROGRAM COMMAND'S. 

THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL & G* KEYS. THIS 

KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 

AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 

WITH A CARRIAGE RETURN. 

ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 

ERROR CONDITION WITH BIT1S SET (HALT ON ERROR), STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 

*P* (CONTINUE). 

IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
"CONTROL & G OR C' COMMANDS MAY BE NFCESSARY TO BE ACKNOWLEDGE 
BY THE PROGRAM. 


ERROR REPORTING 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 

*UNIT UNIT NUMBER 

*ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
*BUSADR MNCDI BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCvD DATA THAT WAS RECEIVED 


*ALWAYS REPORTED 


SEQ 0004 


MISCELLANEOUS 


MNCDI BUS ADDRESS MODIFICATION 


MODIFY LOCATION ‘S$BASE' (LOC. 1244) IF BASE BUS ADDRESS IS NOT 171160. 
MODIFY LOCATION ‘'SVECT1° (LOC. 1240) IF INTERRUPT VECTOR IS NOT 120. 
MODIFY LOCATION ‘$CDW1" (LOC. 1250) IF THE OUTPUT BASE ADDRESS 

1S NOT 171260 FOR THE WRAP-AROUND TEST. 


*NOTE: USE THE ‘B'’ PROGRAM COMMAND TO MODIFY THIS LOCATIONS 
AFTER PROGRAM LOAD. 


XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REQUIRES 8k OR MORE). 
THIS DIAGNOSTIC DOES SUPPORT ‘'APT'’ BUT HAS NOT BEEN RUN UNDER IT. 


POWER FAIL 


A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWFR UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON=VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


MULTIPLE MNCDI INTERFACE TESTING 


THIS PROGRAM DOES "‘AUTO-SIZE** THE NUMBER OF MNCDI'S CONNECTED. 
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 MNCDI INTERFACES 
WiTH CONTIGUOUS BUS ADDRESSES. THE ‘'AUTO-SIZE"' CAN BE INHIBITED 
BY THE OPERATOR SETTING BIT 15 OF LOCATION ‘SENV (LOC. 1214) OR 
SETTING SWITCH REGISTER BIT 12 TO A ONE. USE THE ‘B'* PROGRAM 
COMMAND TO LOAD THE BASE AND VECTOR ADDRESSES. 


RESTRICTIONS 
ALL USER CONNECTIONS MUST BE REMOVED. 
EXECUTION TIME 


EXECUTION TIME RANGES FROM ASOUT 5 SECONDS WITH NO ITERATIONS 
TO ABOUT 20 SECONDS WITH ITERATIONS ENABLED WITH ONE MNCDI CONNECTED. 


AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
FND OF PASS WILL ALSO REPORT TOTAL ERROR COUNT AND ANY UNIT'S THAT HAD ERRORED. 


SEQ 0005 

























PROGRAM TEST DESCRIPTIONS 


ORS eee Me ee om me oe ein Om ee eS me ee 


iL = LOGIC ESTS 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE MNCD] INPUT CONTROL. 
A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 

AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 

EACH TEST CAN BE BENEFICIAL “. TEST ~~ C¥ ANDING. 

THE PROGRAM WILL AUTO=SIZE UP TO 8 MNCDI'S TO BE TESTED. 


= WRAP-AROUND LOGIC AND DATA TEST 


THE PURPOSE IS TO VERIFY PROPER OPERATION OF THE DIGITAL INPUT 
SIGNALS FROM THE CABLE CONNECTOR. A MNCDO SUPPLIES DATA AND 
CONTROL SIGNALS TO THE MNCDI. THE ROUTINE REQUIRES THE USE OF A 
MNCDI, MNCDI TEST MODULE. MNCDO, MNCDO TEST MODULE AND A 

SHORT BERG CABLE. 


T = TYPEOQUT LOOP FOR INPUT TEST MODULE SWITCHES 


THE LOOP ENABLES VERIFICATION OF THE CABLE CONNECTOR INPUT 6 es 

THE USE OF A MNCDO. THE PROGRAM WILL WAIT FOR THE OPERATOR T 

DEPRESS THE MNCDI TEST MODULE PUSH-BUTTON. WHEN THE OPERATOR  DEPRESSES 
THE BUTTON, A SIGNAL FLAG (STROBE) IS SENSED AND THE PROGRAM READS 

A MNCDI REGISTER. THE CONTENTS OF THE MNCDI TEST MODULE SWITCH REGISTER 
CAN BE READ BY READING THE MNCDI INPUT DATA REGISTER. THE VALUE 

OF THE INPUT IS REPORTED AS AN OCTAL NUMBER AND A 16 BIT BINARY 

THE OPERATOR MAY CHANGE THE TEST MODULE DATA SWITCHES AND DEPRESS THE 
PUSH=BUTTON AGAIN. 


L = LOGIC TEST WITH TESTER SUPPORT (SA 210) 


THE IN-HOUSE TESTER CONSISTS OF A INPUT/OUTPUT DEVICE TO SENSE THE 
OUTPUT CONTROL SIGNAL AND TO STIMULATE THE INPUT DATA AND CONTROL 
SIGNALS. AN EXPANDED LOGIC TEST IS EXECUTED INCLUDING A WRAP-AROUND 
DATA AND CONTROL TEST. 


LISTING 





CVMNB-8 MNCDI 
CVMNBB P11 
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08-AUG-79 10:38 TABLE OF CONTENTS 
BASIC DEFINITIONS 
OPERATIONAL SWITCH SETTINGS 
TRAP CATCHER 
ACT11 HOOKS 
APT Agen big BLOCK 
COMMON T 
APT MAILBOX~E TABLE 
ERROR POINTER TABLE 
INITIALIZE THE COMMON TAGS 
TYPE PROGRAM NAME 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
KEYBOARD COMMAND DECODER 
DETERMINE THE NUMBER OF MNCDi"S ON THE SYSTEM 
SUBROUTINE TO HANDLE CONTROL C/G 
MNCDI TESTS 
T1 VERIFY CORRECT 1.D. CODE FOR MNCDI (IN-HOUSE TESTER) 
T2 VERIFY A MNCDI BUS ADDRESS RESPONSE 
T3 FLOAT A 1 ACROSS THE MNCDI STIMULUS BIT REGISTER 
T4 FLOAT A_O ACROSS THE MNCDI STIMULUS BIT REGISTER 
T5 ENSURE THAT “RESET’* CLEARS IHt MNCDI STIMULUS BIT REGISTER 
T6 teat ¢ at i OPERATION ON Li 3 MNCDI STIMULUS BIT REGISTER 
7 TES T BIT1 OF MNCDI STATUS REGISTER IS READ-WRITE 
110 TEST THAT BIT2 OF MNCDI STATUS REGISTER IS READ-WRITE 
111 TEST THAT BI73 OF MNCDI STATUS REGISTER IS READ-WRITE 
T12 TEST THAT BIT4 OF MNCDI STATUS REGISTER IS READ-WRITE 
113 TEST THAT BITS OF MNCDI STATUS REGISTER IS READ-WRITE 
T14 TEST THAT BIT6 OF MNCDI STATUS REGISTER IS READ-WRITE 
115 TEST THAT BIT8 OF MNCDI STATUS REGISTER IS READ-WRITE 
116 TEST THAT BIT9 OF MNCDI STATUS REGISTER IS READ-WRITE 
117 TEST THAT BIT12 OF MNCDI STATUS REGISTER IS READ-WRITE 
T20 TEST THAT BIT14 OF MNCDI STATUS REGISTER IS READ-WRITE 
T21 ENSURE THAT “RESET’* CLEARS THE MNCDI STATUS REGISTER 
T22 VERIFY HIGH BYTE OPERATION ON THE INPUT STATUS REGISTER 
123 VERIFY LOW BYTE OPERATION ON THE INPUT STATUS REGISTER 
T24 VERIFY THAT MAINT. STROBE SETS ‘‘INPUT DATA READY"’ 
T25 VERIFY THAT ‘‘INPUT DATA READY’' CAN BE WRITTEN TO A ZERO 
T26 VERIFY THAT ‘‘INPUT DATA READY’ CAN BE CLEARED BY A ‘RESET'’ 
T27 "INPUT DATA READY’ WILL NOT SET IF IN STIMILUS MODE AND NO SBR MATCH 
730 VERIFY THAT ‘OVERRUN ERROR’' SETS 
131 VERIFY THAT ‘OVERRUN ERROR’ CAN BE WRITTEN TO A ZERO 
132 VERIFY THAT ‘RESET’* CLEARS ‘OVERRUN ERROR’ 
133 VERIFY INVERT DATA FUNCTION 
134 VERIFY EACH BIT OF THE MNCDI INPUT DATA REGISTER CAN BE CLEARED 
735 VERIFY THAT ‘RESET’* CLEARS MNCDI INPUT DATA REGISTER 
136 VERIFY THAT A 2ND STROBE PULSE WILL NOT CHANGE THE DIR DATA 
137 INTER@UPT TEST == VERIFY MNCDI INTERRUPTS VIA DATA READY VECTOR 
740 INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA OVERRUN ERROR 


SEQ 0007 
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ae ese 4 MODE TESTS 


VERFIY MODE 00 == INPUT STROBE WILL SET THE INPUT DATA READY FLAG 
142 VERIFY MODE 01 == INPUT STROBE WILL SET THE INPUT DATA READY FLAG 
143 VERIFY MODE 10 == INPUT STROBE WILL NOT SET INPUT DATA READY FLAG 


144 VERIFY INPUT REPLY SETS OUTPUT DONE FLAG 

T45 VERIFY THE MNCDO = WRAPAROUND = MNCDI DATA PATH 

146 VERIFY THE MNCDO = WRAPAROUND = MNCD] INVERTED DATA PATH 
147 VERIFY IN 10 MODE THAT SBR AND INPUT BITS SET INPUT READY 
T50 TEST THE TRANSITION ENABLE AND TRANSITION DETECTION: 

151 DETERMINE IF MORE MNCDI'S REMAIN TO BE TESTED 

END OF PASS ROUTINE 

MNCDI TEST MODULE SWITCH TYPEOUT LOOP 

TTY INPUT ROUTINE 

SCOPE HANDLER ROUTINE 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO ‘ee TYPE ROUTINE 


S 
READ AN OCTAL NUMBER FROM THE TTY 
TYPE ROUTINE 
BINARY TO ASCII AND TYPE ROUTINE 
TRAP DECODER 
TRAP TABLE 
ASCII MESSAGES 


_ 
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-TITLE CVMNB-B MNCDI DIAGNOSTIC 
*COPYRIGHT (C) 1979 

>*DIGITAL EQUIPMENT CORP. 
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( 
( 
( 
( 
( ! #PROGRAM BY SHOOP 
( 
( THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
( ; *PACKAGE (MAINDEC-11=DZQAC-C3), JAN 19, 1977. 
( ; 
17 171160 ABASE=171160 ;DEFAULT DIGITAL INPUT ADDRESSES 
18 000126 AVECT1=120 :DEFAULT DIGITAL INPUT VECTOR 
19 171260 ACDW1=171260 sDEFAULT DIGITAL OUTPUT ADDRESSES <WRAP-AROUND> 
‘3 -SBTTL BASIC DEFINITIONS 
( 
(1) s* INITIAL ADDRESS OF THE STACK POINTER *** 1100 **~ 
(1) 001100 STACK= 1100 
(1) -EQUIV EM,,ERROR 77BASIC DEFINITION OF ERROR CALL 
3h. -EQUIV I9T,SCOPE 7 7BASIC DEFINITION OF SCOPE CALL 
(1) 
(1) z*MISCELLANEOUS DEFINITIONS 
(1) 000011 HT= 11 ;:CODE FOR yr gry TAB 
(1) 000012 LF= 12 : s CODE FOR LINE FEED 
(1) 000015 CR= 15 ;s CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 iC ODE FOR CARRIAGE RETURN-LINE FEED 
(13= 177776 PS= 177776 ;zPROCESSOR STATUS WORD 
(1) -EQUIV PS,PSW 
(1) 177774 STKLMT= 177774 STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 7 HARDWARE SWITCH REGISTER 
4}. 177570 DDISP= 177570 7 HARDWARE DISPLAY REGISTER 
( 
(1) :*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= %0 7 GENERAL REGISTER 
(1). 000001 R1= %1 7 GENERAL REGISTER 
(7) 000002 R2= x2 7; GENERAL REGISTER 
(1) 000005 R3= %3 3; GENERAL REGISTER 
(1) 000004 R4= %4 ; GENERAL REGISTER 
(1) 000005 R5= 25 ; GENERAL REGISTER 
(1) 000006 R6= %6 ; GENERAL REGISTER 
(1) 000007 R7= %7 ; GENERAL REGISTER 
(1) 000006 SP= %6 ;z STACK POINTER 
at 000007 PC= %7 : PROGRAM COUNTER 
(1) -  ¢*PRIORITY LEVEL DEFINITIONS 
(7) 000009 PRO= 0 ;zPRIORITY LEVEL 0 
(1) 000040 PR1= 40 : PRIORITY LEVEL 1 
(1) 000100 PR2= 100 > PRIORITY LEVEL 2 
(1) 000140 PR3= 140 > PRIORITY LEVEL 3 
(1) 006200 PR4= 200 ZIPRIORITY LEVEL 4 
(1) 000240 PR5= 240 ; PRIORITY LEVEL 5 
(1) 000300 PR6= 300 : PRIORITY LEVEL 6 
Ah 000340 PR7= 340 ;7PRIORITY LEVEL 7 
) 
(1) p*''SWITCH REGISTER'’ SWITCH DEFINITIONS 
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BASIC DEFINITIONS 


Sw15= 100000 
SwW14= 40000 
Swi3= 20000 
Swi2= 10090 
Swi1= 4000 
Sw10= 2000 
swo9= 1000 
SWwO8= 400 
SwO7= 200 
SwWO6= 100 
SwoS= 40 
Sw04= 20 
SwO3= 10 
SwO2= 4 
SwOl= 2 


BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BIT06= 100 
BITOS5= 40 
BIT04= 20 
BITO3= 10 
BITO2= 4 
BITO1= 2 
B1T00= 


1 
-EQUIV BITO9,BIT9 
-EQUIV BIT08,BIT8 
-EQUIV BITO7,BIT7 
-EQUIV BIT06,BI 


;*BASIC ‘'CPU"* TRAP VECTOR ADDRESSES 


SEQ 0010 
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(1) 000004 ERRVEC= 4 3: TIME OUT AND OTHER ERRORS 

(1) 000010 RESVEC= 10 ; RESERVED AND ILLEGAL INSTRUCTIONS 

(1) 000014 TBITVEC=14 ss) Olt 

(1) 000014 TRIVEC= 14 3; TRACE TRAP 

(1) 000014 BPTVEC= 14 ; ;BREAKPOINT TRAP (BPT) 

(1) 000020 IOTVEC= 20 3; INPUT/OUTPUT TRAP (IOT) **SCOPE** 

(1) 000024 PWRVEC= 24 7 POWER FAIL 

(1) 000030 EMTVEC= 30 : EMULATOR TRAP (EMT) **ERROR*®* 

(1) - 000034 TRAPVEC=34 77° ‘TRAP’’ TRAP 

(1) 000060 TKVEC= 60 3; TTY KEYBOARD VECTOR 

(1) 000064 TPVEC= 64 ii TTY PRINTER VECTOR 

(1) 000240 PJ RQVEC=240 7 PROGRAM INTERRUPT REQUEST VECTOR 


CVMNB~8 MNCD] 
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000200 000002 
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OPERATIONAL SWITCH SETTINGS SEQ 0012 
-SBTTL OPERATIONAL SWITCH SETTINGS 


Se Be 


Be Be Be Be Be Be we 


seep eeepepeee 


SWITCH 


HALT ON cr 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT Titeat La # OF MNCDI'S 
INHIBIT ITERATI 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


-=0 

:*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ‘'.+2"' 
[*AND ‘JSR PC,RO'' SEQUENCE TO CATCH ILLEGAL INTERRUPTS. 
Z*AND INTERRUPTS TO THE WRONG VECTOR. 

;*LOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 
VECT ORS. 


-WORD 1OTRD, 200 :HANDLE BUSS ERROR. 


DISPREG: .WORD 0 :SOFTWARE DISPLAY REGISTER 
SWREG:  .WORD 0 SOFTWARE SWITCH REGISTER 


-=200 

JMP BEGIN 

JMP RESTRT RESTART ADDRESS 

JMP TESTER ; TESTER STARTING ADDRESS 
-=100 

104,200,RTI 3LSI-11 'B EVENT’ PROTECTION 
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-SBTTL ACT11 HOOKS 





(2) SAAR REET TRAE AAR 

(1) HOOKS REQUIRED BY ACT11 

(1) 000106 $SVPC=. SAVE PC 

(1) 000046 .=46 

(1) 000046 010234 SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP 
(1) 000052 -=52 

(1) 000052 000000 «WORD 0 332)SET LOC. rg TO ZERO 

(1) 000106 -=$SVPC 33 RESTORE P 

59 001000 


-=1000 
-SBTTL APT PARAMETER BLOCK 


g 


FFARR ARERR AREARAREREKERERAKEARAEAREARAERE ARERR AERA ERE EEE 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SLA REAR ARR ERERAAEEAERAEREAEAAERAKEERREAEAEA EERE EERE REE EE 


091000 -$X=. = 5; SAVE CURRENT LOCATION 

000024 2=24 :sSET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 3sFOR APT START UP 

000044 -=44 :sPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 

0017000 -=.$X ;;RESET LOCATION COUNTER 


LT EAR ERA EERE EERE ERE 


; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


001000 SAPTHD : 

001000 000000 $SHIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001170 $MBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

001004 000030 STSTA:) Yow 2 ;zRUN TIM OF LONGEST TEST 

001006 0090030 $SPASTM: .WORD 30 7;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001910 £00030 SUNITM: .WORD 30 ; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


PQA AAA AAA AAA AAR AOE 
ek ee kd et od = 2 a FL) = se FW SN 
ee Nee Ne eae eee ae es ae ae ee ae 


001012 (00032 -WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


Be 
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Ra .SBTTL COMMON TAGS 

) 

(2) = RARER EERE RRR EERE RETREAT ERRERE EERE 
(1) S*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

My > *USED IN THE PROGRAM. 

(1) 

(1) 001100 -=1100 

(1) 001100 SCMTAG: 77 START OF COMMON TAGS 

(1) 001100 D O 

(1) 001102 000 STSTNM: .BYTE 0 ; CONTAINS THE TEST NUMBER 

(1) 001103 000 SERFLG: .BYTE 0 3; CONTAINS ERROR FLAG 

(1) 001104 000000 SICNT: = « » 3; CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: . ae. 3 TAINS SCOPE LOOP ADDRESS 

(1) 001110 000000 SLPERR: .WORD 0 ;; CONTAINS SCOPE RE TURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD OQ 7; CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 SITEMB: .BYTE 0 :: CONTAINS ITEM CONTROL BYTE 

(1) 001115 001 $E : BYTE 1 3; CONTAINS MAX. ERRORS PER TEST 

(1) 001116 000000 SERRPC: .WORD 0 3: CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 SGDADR: .WORD 0 ;:CONTAINS ADDRESS OF ‘GOOD' DATA 
(1) 001122 000000 SBDADR: .WORD 0 3; CONTAINS ADDRESS ere "BAD DATA 
(1) 001124 000000 SGDDAT: .WORD 0 ;: CONTAINS ‘GOOD’ aor 

(1) 001126 000000 $BDDAT: .WORD 0 7:CONTAINS ‘BAD’ DAT 

(1) 001130 000000 -WORD 0 7 RESERVED--NOT TO BE USED 

(1) 001132 000000 «WORD OQ 

(1) 0011 000 $AUTOB: .BYTE 0 ; ;AUTOMATIC MODE INDICATOR 

(1) 001135 000 SINTAG: .BYTE 0 3; INTERRUPT MODE INDICATOR 

(1) 0011 000000 «WORD 0 

(1) 001140 177570 WR: WORD DSWR ; ADDRESS OF SWITCH REGISTER 

(1) 001142 177570 DISPLAY: .WORD DDISP ary ob OF oF eae REGISTER 

(1) 001144 177560 $TKS: 177560 TY keD STATUS 

(1) 001146 177562 $TKB: 177562 ry KED BUFFER 

(1) 001150 177564 $TPS: 177564 SITY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 eeTTy PRINTER BUFFER REG. ADDRESS 
(1) i 000 SNULL : BYTE 0 ‘ONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 S$FILLS: .BYTE 2 >: CONTAINS # OF FILLER CHARACTERS ee 
(1) 001156 012 SFILLC: .BYTE 12 as aH FILL CHARS. AFTER A ‘LINE F 
(1) 001157 000 STPFLG: .BYTE 0 3° TERMINAL WUE FLAG (BIT<07>=0=YES> 
(1) 001160 000000 STIMES: 0 MAX. NUMBER OF ITERATIONS 

(1) 001162 000000 SESCAPE :0 « SESCAPE ON ERROR ADDRESS 

(1) 001164 077 $QUES: .ASCII /?/ 7 QUESTION MARK 

(1) 001165 015 $CRLF: .ASCII <15> ras RE TURN 

(1). 001166 000012 $LF: eASCIZ <12> 77LINE FEED 

(2) DDI IOIOIIOIDIOIIOIDIOISIIIOIUIOIIICISIOIOIIOIDIUIOIOIIOIOIOIOISIOIUIIDIDIOISIOIDIOIOIUIOIOIOIOIDIO INO 
(2) .SBTTL APT MAILBOX~ETABLE 

me | 

(3) DDI III IIOIIDIIOIDIIIIOIOIDIIOIIOIUIUIDIDIIUIUIDIOIUIOUIOIOUIOIUIDIO TOO IOI On ii ti tit 
(2) EVEN 

(2) 001170 SMAIL: T MAILBOX 

(2) 001170 000000 SMSGTY: .WORD AMSGTY : MESSAGE TYPE CODE 

(2) 001172 000000 SFATAL: .WORD AFATAL ATAL ERROR NUMBER 

(2) 001174 000000 STESTN: .WORD ATESTN test NUMBER 

(2) 001176 000000 $PASS: .WORD SS; ;PASS COUNT 

(2) 001200 000000 SDEVCT: .WORD ADEVCT oe om COUNT 

(2) 001202 000000 $UNIT: . D By : UNIT NUMBER 

(2) 001204 000000 SMSGAD: .WORD AMSGAD + : MESSAGE ADDRESS 

(2) 001206 000000 $MSGLG: .WORD AMSGLG « [MESSAGE LENGTH 


C 
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000 


I 
1 


C 
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T MAILBOX~E TABLE 


$E TABLE : 


AENV 
AENVM 
ASWREG 
AUSWR 
ACPUOP 


ACDW1 
ACDW2 


.« 
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SEQ 0015 


7 APT ENVIRONMENT TABLE 
3 ENVIRONMENT a 
7 ENVIRONMENT MODE BITS 
fi SWITCH REGISTER 

; <USER SWITCHES 

CPU _TYPE, oo TUE 

BITS 15- 1s CPU T 

11/04=01, "1 /05= 02,11/20=03,11/40=04,11/45=05 
11/70=06 ,PDQ=07, 0=10 

BIT 10=REAL_ TIME CLOCK 
BIT 9=FLOATING A ent 


BIT 8=MEMORY 
: ¢HIGH ADDRESS.M.S. BYTE 
73MEM. TYPE ,BLKA1 
MEM.TYPE BYTE == (HIGH BYTE) 


900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 Se MOS=003 
;:HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR. “5 BYTES,THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 
;;HIGH ADDRESS,M.S. BYTE 
3 7MEM. TYPE ,BLK# 
; =MEM.LAST ea BLKA2 
: HIGH ADDRESS ,M.S.BYTE 
MEM. TYPE ,BLKA3 
3:MEM.LAST ADDRESS ,BLK#3 
; ;HIGH ADDRESS .M.S.BYTE 
77MEM.TYP KANG 
:MEM.LAST ADDRESS ,BLKA4 
 EINTERRUPT VECTOR#1 ,BUS PRIORITY#1 
SE INTERRUPT VECTOR#2BUS PRIORI TY#2 
Et “ge OF EQUIPMENT UNDER TEST 


CONTROLLER DESCRIPTION WORDA1 
CONTROLLER DESCRIPTION WORDA#2 





CVMNB-B — 
CVMNBB .P7 1 


ROLLE LLL LPL 


OO 3  S 4 Ss ss Ss Ss i Ht Ss 
INNMOw wee wevevevvuvuvvvYvw 


g 


001254 
001254 
001262 


001264 
001272 


001274 
001302 


001304 
001312 


001314 
001322 


001324 
001332 


001334 
001342 


001344 
001352 


001354 
001362 


001364 
001372 


001374 
001402 


DIAGNOSTIC 
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015764 
021006 


016625 
021006 
016716 
021006 
017005 
021006 
016262 
021006 
016367 
021006 


016442 
021006 


016513 
021006 
016562 
021006 


017052 
021006 


017123 
021006 


017262 


017520 


017563 


017407 


017313 


017353 


017407 


017443 


017476 


017626 


017661 


MACY11 306(1063) 


020624 


020726 


020744 


020666 


020636 


020652 


020666 


020702 


020716 


020762 


020774 


08-AUG-79 


ERROR POINTER TABLE 
-SBTTL ERROR POINTER TARLE 


3*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE ; PERTINENT. 
IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC 


*NOTE1: 


< ¥NOTE2: 


SERRTB: 
s ITEM 


ZITEM 


7 ITEM 


s ITEM 


7 1TEM 


ZITEM 


7 ITEM 


7 ITEM 


ZITEM 


s ITEM 


ZITEM 


EACH ITEM 


DH oe 


1 

EM1 ,DH1,DT1,DFO 

2 
EM12,DH12,D112,DF9 
3 
EM13,DH13,D1T13,DF0 
4 

EM14,DH7,DT7,DFO 

5 

EMS ,DH5 DTS DFO 

6 

EM6 ,DH6,DT6,DFO 

7 

EM7,DH7,DT7,DFO 

10 
EM10,DH10,DT10,DFO 
11 
EM11,DH11,D111,DFO 
12 
EM15,DH15,DT15,DFO 


13 
EM16,DH16,D1T16,DF0 


IN THE 


: POINTS 


POINTS 


> POINTS 
7 zPOINTS 


:MNCDI 


sMNCDI 


;MNCDI 


;MNCDI 


7MNCD I 


7MNCDI 


D 2 
10:48 PAGE 2-3 


TABLE CONTAINS 4 POINTERS EXPLA TNED AS FOLLOWS: 


TO THE ERROR MESSAGE 
TO THE DATA HEADER 
TO THE DATA 

TO THE DATA FORMAT 


;MNCDO BUS ERROR 


7MNCDO-MNCDI WRAP-AROUND STATUS ERROR 


;MNCDO-MNCDI WRAP-AROUND DATA ERROR 


INCORRECT I.D. VALUE 


BUS ERROR 


STIMULUS REGISTER ERROR 


STATUS REGISTER ERROR 


DATA REGISTER ERROR 


INTERRUPT ERROR 


sMNCDI ILLEGAL OR TRAP INTERRUPT 


sEXISTING MNCDI FAILED TO RESPOND 


SEQ 0016 











E 
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157 001404 000000 OCSR: QO 
+ 001406 000000 OCSR1: 0 ;HIGH BYTE ADDRESS 
160 001410 000000 DOR: 0 
+23 001412 000000 DORI: 0 SHIGH BYTE ADDRESS 
163 001414 000000 It: 9 
\ee 001416 000000 ICSR1: 0 HIGH BYTE ADDRESS 
166 001420 DIR 0 
167 001422 000000 DIR1 0 
168 001424 SBR Q 
a 001426 000000 SBR1 0 ;HIGH BYTE ADDRESS 
171 001430 000000 DIDINV: 0 ; INPUT INTERREPT VECTOR # i 
ues 001432 000000 DIDINS: 0 
174 001434 000000 DIEINV: 0 INPUT INTERRUPT VECTOR # 2 
Ne 001436 000000 DIEINS: 0 ; 
177 001440 000000 DWARF: 0 ;0= NO EDGE CONNECTOR, =1 IN-HOUSE TESTER, =2 WRAP-AROUND 
178 001442 000000 TEMP 0 
179 001444 000000 TEMP1: 0 
180 001446 000000 TEMP2: 0 RESTART INDICATOR 
181 001450 167770 TSTRO: 167770 ; IN-HOUSE TESTER ADDRESS 
182 001452 167772 TSTR2: 167772 
183 001454 167774 TSTR4: 167774 
184 001456 167776 TSTR6: 167776 
185 001460 000000 MASKNM: 0 ;DEVICE MASK 
186 001462 000004 VADDRO: 4 sMULTIPLE OUTPUT UNITS ADDRESSESS DIF FERENCF 
187 001464 000010 VADDR: 10 ;MULTIPLE INPUT UNITS, ADDRESS DIFFERENCE 
188 001466 000120 VECLST: AVECT1 ;VECTOR FOR UNIT 40 
189 001470 000130 AVECT1+10 é #) 
1 001472 000140 AVECT1+20 : 14 
191 001474 000150 AVECT1+30 3 #3 
192 001476 000470 AVECT1+350 ; AG 
193 001500 000460 AVECT1+340 ; #5 
194 001502 000450 AVECT1+330 : 46 
195 001504 000440 AVECT1+320 
001506 000000 VECOFF: O 


;BAD UNIT INDICATOR 





208 010000 BITDAT=BIT12 MAINT INPUT INHIBIT 
20° 004000 BITEXT=BIT11 > INPUT MAINT STROBE 





CVMNB-B MACD! 

CVMNBB P11 
212 001534 
213 001540 
214 001542 
215 001546 
216 001552 
217 001554 
218 001562 
219 1566 
(1) 
(1) 
(1) 15 
(1) 001572 
(1) 001574 
(1) 001600 
(1) 001602 
(1) 
(1) 001 
(1) 001614 
(1) 001622 
(1) 001630 
(1) 001636 
(1) 001644 
(1) 001652 
(1) 1660 
(1) 001666 
(1) 001674 
(1) 001700 
(1) 001704 
(1) 001712 
(1) 001720 
(2) 
(2) 
(2) 001726 
(2) 001732 
(2) 001740 
(2) 001746 
(2) 001754 
(2) 001762 
(2) 
(2) 001764 
(2) 001766 
(2) 001772 
(2) 001774 
(2) 002002 
4; 002010 
(2) 002014 
(2) 002020 
(2) 002026 
(2) 002030 
(2) 002036 


bp 


08-AUG-79 


005237 
000412 


012737 
012737 


013746 


012637 


005037 
132737 


001403 
012737 


10:38 
001446 
001440 
001446 


000001 
00144€ 


001100 
001140 
001100 
012120 
00034 
012440 
090 


001720 


000004 
001766 
177570 
177570 
177777 


001774 


001176 
000200 


001212 


MACY11 ee he 


001440 


000020 
000022 
000030 


177156 


001140 
001142 


001211 
001140 


_« 
O08-AUG-79 10:48 PAGE 
POINTER TABLE 


4 


; INDICATE RESTART 
;CLEAR DWARF MODE INDICATOR 


; INDICATE MNCDI IN-HOUSE TESTER MODE 


;sFIRST LOCATION TO BE CLEARED 
; CLEAR MEMORY LOCATION 


::LOOP BACK IF NO 
+:SETUP THE STACK POINTER 


tive on FOR SCOPE ROUTINE 
CENT” eo FOR ERROR ROUTINE 
TRAP_VECTOR FOR TRAP CALLS 


EC Hing FAILURE VECTOR 


7 
SETUP END-OF -PROGRAM COUNTER 
: INITIALIZE NUMBER OF ITERATIONS 
eae THE ESCAPE ON ERROR ADDRESS 
LLOW ONE ERROR PER TEST 


: INITIALIZE THE LOOP tie SCOPE 


SETUP THE et LOOP ADDR 


T UP ERROR VECTOR 
;SETUP FOR A HARDWARE SWICH REGISTER 
: SAND A HARDWARE DISPLAY ae 
TRY TO REFERENCE HARDWARE 
$ IBRANCH IF NO TIMEOUT TRAP OCCURRED 
SAND THE HARDWARE SWR IS NOT = -1 
>:BRANCH IF NO TIMEOUT 
3:SET UP FOR TRAP RETURN 


;sPOINT TO SOFTWARE SWR 
7 ZRESTORE ERROR VECTOR 
EAR PASS COUNT 


iCL 
TEST USER SIZE UNDER APT 
YES,USE NON-APT SWITCH 


RESTRT: INC TEMP2 
BR RBE GO 
BEGIN: CLR DWARF 
CLR TEMP2 
BR RBE GO 
TESTER: MOV #1 , DWARF 
CLR TEMP2 
RBEGO: 
.SBTTL INITIALIZE THE COMMON TAGS 
3: ;CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV #SCMTAG,R6 
CLR (R6)+ i 
CMP #SWR,R6 ; ; DONE? 
BNE -6 
MOV #STACK ~SP 
sINITIALIZE A FEW VECTORS 
MOV #SSCOPE , @#IOTVEC 
MOV #340, a#IOTVEC+2 ; 
MOV ASERROR, avEMTVEC : 
MOV #340, QvEMTVEC +2 ; LEVEL 
MOV #STRAP, @ATRAPVEC ; 
MOV #340, aé TRAPVEC +2: LEVEL 7 
MOV #SPWRDN, aFfPWRV 
MOV #340, @#PWRVEC +2 a ta 
MOV SENDCT, SEOPCT 
CLR STIMES 
CLR $SESCAPE 
MOVB #1, SERMAX 
MOV #.,$LPADR 
MOV #.,$LPERR 
SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;EQUAL TO A ‘*=1"', SETUP FOR A bene SWITCH REGISTER. 
MOV @FERRVEC ,-(SP) — ERROR VECTOR 
MOV #64$ , AERRVEC ¥ 2 
MOV _ ADSWR, SWR 
MOV “ADDISP,DISPLAY 
CMP 2 ~ #-1,aSWR 
BNE - 66$ 
BR. . 65$ 
64$: ay #65$, (SP) 
65$: MOV ASWREG, SWR 
MOV #DISPREG,DISPLAY 
66$: MOV (SP) +, Q@#ERRVEC 
CLR $PASS 
BITB MAPTSIZE,SENVM 
BEQ 67$ 
MOV #SSWREG, SWR 


67$: 


ENO. USE APT SWITCH REGISTER 


SEQ 0018 


Bienes 


POO AREA OFAARAAAAOOO 


= = PONMININININININININIDN 2  -8 
Ne NNN Ne eee ee ae te 


228 
2 


DIAGNOSTIC 
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0004 
112737 
000424 


He sh od 


013737 


10:38 

005046 
012746 
014272 
000002 
010636 
177777 
010234 
002156 
000042 


001210 
001140 


000001 


001134 


002520 
001446 


020156 
000001 


020257 
001450 


G 2 
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000042 


000001 
000176 


001134 


001440 


007250 


TYPE -69$ 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST W442 ;ARE WE 


INITIALIZE THE COMMON T 


ROUTINE me. OVERLAY THE ‘STYPE'' notte 
#5046,$TYPE CLR =(SP) 
Oy #12746, $TYPE+2 ;MOV aSTYPE+12, -(SP) 
MOV ASTYPE+12, $TYPE +4 
MOV #RTI ,STYPE+6 RTI 
JSR PC, $TKINT SENABLE TKB INTR. 
Fyre TYPE PROGRAM NAME 
; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


INC #-1 siFIRST TIME? 
BNE 68s : BRANCH IF NO 
CMP #SENDAD , dM 42 sgACT=11? 

68$ tye 


IF YES 
TYPE ASCIZ STRING 
RUNNING UNDER XXDP/ACT? 


BNE 70$ ‘BRANCH IF YES 
CMPB SENV,41 aos WE RUNNING UNDER APT? 
BEQ 70$ CH IF YES 
CMP SWR ,ASWREG [SOFTWARE SWITCH REG SELECTED? 
BNE 71$ ; «BRANCH IF NO 
a n1$ Z:GET SOFT-SWR SETTINGS 
ne: MOVB #1 ,$AUTOB ;iSET AUTO-MODE INDICATOR 
BR 68$ ;GET OVER THE ASCIZ 
Pi eASCIZ = <CRLF>ACVMNB-B MCD I (DIGITAL IN) DIAGNOSTIC&<CRLF> 
TSTB $AUTOB sTEST IF ACT/XXDP/ACT AUTO MODE 
BEQ 3$ ;BR IF NOT 
JMP LOGIC :kKUN LOGIC TEST 
3$ TST TEMPe ;TEST IF RESTART 
BNE MTEST1 :BR IF YES 


; INFORM OPERATOR ABOUT FRONT SWITCH 
sTEST IF TESTER 


BNE MTEST [BR IF NOT AND TELL OPERATOR THE HEADER 


TYPE, SETUP ; INFORM OPERATOR ABOUT TESTER 


MOV TSTRO,$CDW1 [LOAD TESTER DEFAULT FOR WRAPAROUND 


SEQ 0019 


CV 
CV 























C 
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015674 
002512 


003252 
000107 


000110 
000114 


000002 
002520 
000117 


003210 
000124 


010354 
000127 


000002 
002514 
001164 


176634 


002512 
002512 


002512 
002512 
002512 


001440 
002512 


002512 


002512. 


001440 


MACY11 "etek 
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YBOARD COMMAND DECOD 


MTEST: 


MTEST?: 


1S: 


es: 


KEYBOARD COMMAND DECODER 
PRIMEO ;TELL THE OPER. THE TESTS AVAIL 


#BIT6,a$TKS ;ENABLE TKB INTR,. 
$SPASS sPRIME THE PASS COUNT 
SERTTL sPRIME THE TOTAL A OF ERRORS 
EVER ; INIT. THE UNIT TYPEOUT 
PC,FIXADR TENSURE BASE AND MVECTOR _——s IS LOADED 
DOT ; INDICATE THE REST POIN 

GET OPER. INPUT 
a(SP)+,RUNIT ZSAVE THE FIRST CHAR. 
#40,RUNIT sENSURE UPPER CASE 
#°B,RUNIT sTEST IF ‘8B’ 
1$ :BR IF NOT 
BASEXC CHANGE INPUT BASE ADDRESS 
#'G,RUNIT “TEST iS 
2$ <BR IF NOT 

sGET SWITCH VALUE 
MTEST1 + AND RETYPE THE DOT 
#°H,RUNIT sTEST IF ‘H' 
MTEST 7BR IF YES 
#'°L,RUNIT sTes? PL" 

;BR IF NOT 
#2, DWARF ZREMOVE DWARF CONNECTED INDICATOR 
LOGIC 7 RUN LOGIC TEST NON-WRAPAROUND 
#'O,RUNIT sTEesT If *v" 
4$ ‘BR IF NOT 
BASEXD ;GET OUTPUT BASE ADDRESS 
#'°T,RUNIT stes: iF *T" 

BR IF NOT 
DIDATA 7 RUN INPUT SWITCH TYPEOUT 
#'W,RUNIT sTEST IF ‘W'' 
77$ ‘BR IF NOT 
#2 , DWARF s INDICATE WRAPAROUND MODE 
LOGICO RUN LOGIC TEST 
$QUES 
MTEST1 ; TRY AGAIN 





ee 
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-SBTTL DETERMINE THE NUMBER OF MNCDI'S ON THE SYSTEM 
LOGICO: TYPE, SETUP2 TELL OPER. THE _— MUST BE THERE 
001126 LOGIC: MOV S$BASE , $BDDAT 61" BASE ADDRESS 
C MASKNM R DEVICE MASK 
SUNIT CLR UNIT NUMBER 
000004 MO #2$ ,ERRVEC LOAD RETURN ADDRESS 
: @$ADDAT TEST IF ADDRESS EXISTS 
001126 VADDR , $BDDAT [UPDATE BUS ADDRESS 
$UNIT UPDATE UNIT COUNT 
SENV TEST IF ‘DO NOT SIZE"’ 
BMI 3$ BR IF NO SIZEING 
176342 #SW12,aSWR TEST IF INHIBIT SIZING IS SET 
3$ :BR IF SET 


001202 #8. ,$UNIT ;TEST IF MAX NUMBER 
1$ BR IF NOT 


3$ ;BR IF MAX 
: (SP)+,(SP)+ RESTORE STACK 
001202 SUNIT ’ 
i 3$ BR I E THERE 
000042 ar42 :TEST IF XXDP CHAIN MODE 
3$ SBR IF YES 
1 s;BASE ADDRESS CAUSED A BUS TRAP 


j $EOP 

000004 : MIOTRD,ERRVEC 
000006 #200, ERRVEC+2 

EVER sTEST IF # HAS BEEN REPORTED 

4$ IF YES BRANCH 
001440 000001 DWARF ,41 3 TEST IF IN _—— MODE 

6$ :BR IF TESTER 

017207 .FOUND1 ;TELL OPERATOR # OF MNCDI'S FOUND 
001202 MOV $SUNIT,-(SP) [PUT # TO BE TYPED ON STACK 


017231 FINISH MESSAGE 
001202 os ANY UNITS 


;BR_IF SOME 
010146 OP REPORT EOP 
001202 001526 : SUNIT EVER sSAVE THE # OF MNCDI'S FOR LATER 
100000 001526 ~ alae it [SET "REPORTED # FLAG'' 


BR 5 
001526 001202 : EVER, $UNIT ;TEST IF ANY HAVE GONE AWAY 
5$ ;BR IF ALL ARE STILL THERE 
001526 001442 EVER, TEMP SAVE _FOR ERROR REPORT 
13 sEXISTING DEVICE FAILED TO RESPOND 
001202 : SUNIT RESET UNIT POINTER 
003010 PC,FIXADR FIX BUS ADDRESSES 
000001 001460 #B1T0,MASKNM [LOAD DEVICE MASK 
001530 BADUNT RESET BAD UNIT INDICATOR 
-(SP) LOWER PRIORITY LEVEL 0 
003424 #TST1,-(SP) 


010146 


SESk 


WNWWANWWWAWW 
— Sw at te 
ONOUSWR-O 
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OYE AAAAA AA AAA OAWGYW 
— ot oe es os oo Ss ot HY 
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MNCD! 
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IC 
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0071404 
001250 
001414 
007244 


001430 
001240 


001440 
001466 
001249 
001240 
001240 
001240 
001240 
001240 
001240 
001240 


000250 
000252 
004700 


001000 
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FIXADR: 
1$: 


2s: 


43: 
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; SUBROUTINE TO FIX DEVICE ADDRESS AND BUS VECTORS 
#0 0 LOAD ADDRESS POINTER 
[LOAD INITIAL BUS ADDRESS 
[LOAD DEVICE ADDRESS 
[UPDATE @US ADDRESS VALUE 
TEST IF DONE WITH BUS ADDRESSES 


BR IF NOT 
LOAD INITIAL We Aad BUS ADDRESS 





10:48 


MOV CSR, 

MOV $CDw1,R1 
MOV R1,(RO)+ 
INC 

CMP RO,AICSR 
BNE 1$ 

MOV $BASE, 

MOV R1, (RO) + 
INC R1 

CMP RO,ADIDINV 
BNE 

MOV $VECT1.R1 
MOV R1,(RO)+ 
TST (R1)+ 

CMP RO. ADIEINS+2 
BNE 4$ 

MOV #VECLST,RO 
MOV MVECOFF ,R1 
MOV $VECT1, (RO) 
ADD (Ri)+,(RO)+ 
MOV SVECT1, (RO) 
ADD (R1)+,(RO)+ 
MOV $VECT1, (RO) 
ADD (R1)+,(RO)+ 
MOV $VECT1, (RO) 
ADD (R1)+,(RO)+ 
MOV $VECT1, (RO) 
ADD (R1)+, (RO)+ 
MOV $VECT1, (RO) 
ADD (R1)+, (RO) + 
MOV $VECT1, (89) 
ADD (R1)+,(RO)+ 
MOV $VECT1, (RO) 
ADD (R1)+, (RO)+ 
MO #250, 

MOV #252,R1 

MOV #4700,R2 


(Ri)+,(R1)+ 
RO, #1000 
5$ 
PC 


cr 


;LOAD THE ADDR 


[UPDATE THE ADDRESS 
TEST IF AT END 


BRANCH IF 


NOT 
;LOAD INITIAL py VECTOR 


;LOAD THE VECT 


[BUMP THE ADDRESS 

TEST IF DONE 

BRANCH IF NOT 

GET ACTUAL VECTOR AREA 

; GET eee OFFSET POINTER 


BA 
;ADD OFFSET 


sALSO TO LOAD INTELLIGENT TRAP CATCHER 
V 0 LOAD FIRST ADDRESS OF TRAP CATCHER 


{LOAD +2 

= LOAD ILLEGAL INST. 
;LOAD .+2 

[LOAD ILLEGAL_INST. 

[BUMP R1 TWICE 


:TEST IF DONE 
;BRANCH IF NOT 






SEQ 0022 















CVMNB-8 MNCDI 
CVMNBB P11 


DIAGNOSTIC 
08-AUG-79 10:38 


001250 
020607 


177776 
003010 
002300 


001244 
020607 


177776 


001240 


020607 


177776 
003010 
002300 


401 003346 105777 175572 
402 003352 100022 
403 003354 017737 175566 
404 003362 042737 177640 
405 003370 022737 000003 
06 003376 001003 
407 003400 005726 
408 003402 000137 002300 
409 003406 022737 000007 
410 003414 001001 
411 003416 104407 
412 003420 00020 





001250 


001244 


001240 


003422 
003422 
003422 


003422 


MACY11 30G(1063) 


BASEXD: T 


BASEXC: 


1$: 


2$: 


. SBTTL 


CTRLCG: 


1$: 


23: 
CTRCHA: 


08-AUG--79 


ADROUT 
MO 


GTSWR 
RTS 
0 





$CDW1 ,-(SP) 


‘ENDOUT 


(SP) + 
} 


$ 

-2(SP) ,$CDw1 
PC,FIXADR 
MTEST1 


Sn aetna TO ASK FOR INPUT ADRS AND VEC 


S$BASE ,-( SP) 
ENDOUT 

(SP) + 

1$ 
-2(SP) , $BASE 


$VECT1,-(SP) 

ENDOUT 

(SP) + 

2$ 

52 (SP) . $VECTI 
F IXADR 


PL, 
MTEST1 


a$TKS 
2$ 


@$TKB,CTRCHA 
#177640, CTRCHA 
+ eet 


(SP) + 
MTEST1 
+ aaecot 


PC 
; CHAR. 


K 2 
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acca TO ASK THE OPERATOR FOR OUT ADRS 
Y 
ASK FOR OUTPUT ADDR. 


;GET DEFAULT VALUE 
TELL OPER. 
;ADC 


;LOAD NEW ADDRESSES 
RETURN 


;TELL OPER. DEFAULT 
SADD END 
AND WAIT FOR INPUT 


zsASK FOR INPUT VECTOR 

:GET DEFAULT 

;TELL OPER THE DEFAULT 
z;ADD END 

;AND WAIT FOR INPUT 

:WAS IT A <CR> FOR DEFAULT 
7 YES BRANCH 

;LOAD NEW VECTOR 

FIX ADDRESSES AND VECTORS 
;AND RETYPE THE DOT 


SUBROUTINE TO HANDLE CONTROL C/G 


STEST IF CTRL G 
3GET SWITCHES 
sEXIT 

THE OPER TYPED 
















































SEQ 0023 


END 
AND WAIT FOR INPUT 
ZWAS IT A <CR> FOR DEFAULT 
7 YES- BRANCH 
[NO-LOAD NEW ADDR. 


ASK FOR INPUT ADDR. 
“EI DEFAULT 


zWAS IT A <CR> FOR DEFAULT 
; YES-BRANCH: 
[NO-LOAD NEW ADDR 


: INPUT FLAG ? 
IF NOT 
“READ CHAR. 
SMASK OFF BITS 
:TEST IF CONFROL C 
[BR IF NOT 
: CLEAN STACK 
ZAND RETYPE THE DOT 


L 
CVMNB-B MNCDI DIAGNOSTIC MACY11 30G(1063) O8=AUG-79 10:48 PAGE 10 
CVMNBB P11 


08-AUG-79 10:38 11 VERIFY CORRECT I.D. CODE FOR MNCDI (IN-HOUSE TESTER) SEQ 0024 

420 FLEA RARER ERRAREAERAARERRERRAEEEREREEREEERERRERAERERERERERR ER EH 
(3) TEST 1 VERIFY CORRECT I.D. CODE FOR MNCDI (IN-HOUSE TESTER) 
(3) MARARAAAAAAASALAALALASASAAASASARRSASSERSASRE SAS AARSRE SERA R RRA ARES SSS 
(2) 003424 000004 T811: SCOPE 
421 003426 022737 000001 001440 CMP #1 , DWARF :TEST IF “IN-HOUSE TESTER'’ MODE 
422 003434 001020 BNE TST2 ;;BR IF NOT 
423 003436 005077 176010 CLR aTSTR2 ; ENSURE TESTER Move 
424 003442 017737 001126 MOV STS TR SBDDAT READ I.D. 
425 003450 042737 177417 001126 BIC #177417, $BDDAT MASK TO OTHER 
426 003456 012737 000140 001124 MOV #140, $GDDAT [LOAD EXPECTED L. D VALUE 
427 64 023737 001124 001126 CMP SGDDAT,SBDDAT : COMPARE 
428 003472 001401 BEQ TST2 :;BR IF SAME 

003474 104004 ERROR 4 S INCORRECT I.D. VALUE FOR MNCDI 
430 STEERER EERE REAR R EEE RAE REE ERE REE REE REE 
(3) DeTEST 2 VERIFY A MNCDI BUS ADDRESS RESPONSE 
(3) MARRABRARALASSAAALLALSASAESASES SSSR SRSASES ESAS ERASERS RASS ESAS ARES ESSE SG 
(2) 003476 000004 112: SCOPE 
431 003500 012737 003524 000004 MOV #1$, ERRVEC ;LOAD BUS TRAP VECTOR 
432 003506 005777 175702 TST a@IcsR :TEST INPUT STATUS 
433 003512 005777 175702 : TST aDIR [TEST INPUT DATA REGISTER 
434 003516 005777 175702 TST aSBR ;TEST STIM. BUFFER REGISTER 
435 003522 000411 BR 2$ BR IF NO TIMEOUT 
436 003524 104005 1$: ERROR 5 “BUS TIME QUT WHEN REFERENCING THE MNCDI 
437 003526 012737 014702 000004 MOV #IOTRD,ERRVEC RESTORE T 
438 003534 012737 000200 000006 MOV #200, ERRVEC+2 TOR 
439 003542 000137 007772 JMP REMAIN CHECK FOR MORE UNITS 
440 003546 012737 014702 000004 2s: MOV #IOTRD,ERRVEC RESTORE TRAP VECTOR 
441 003554 012737 000200 000006 MOV #200, ERRVEC+2 
442 STARA REE EAEKE EERE KEE ERE EKEKE KEE 
(4) D*TEST 3 FLOAT A 1 ACROSS THE MNCDI STIMULUS BIT REGISTER 
(4) CLEARER ERE ERE EEE EER ERK EKER REE EEE 
(3) 003562 000004 TST3: SCOPE 
(1) 003564 012737 000001 001124 MOV #B1T0,$GDDAT :LOAD EXPECTED BIT 
(1) 003572 012737 003600 001106 MOV #1$,$LPADR [LOAD LOOP ADDRESS 
(1) 003600 013777 001124 175616 1S: MOV SGDDAT .aSBR [LOAD MNCDI STIMULUS BIT REGISTER 
(1) 003606 017737 175612 001126 MOV SBR , $BDDAT :READ MNCDI STIMULUS BIT REGISTER 
(1) 003614 023737 001124 001126 CMP SGDDAT , SBDDAT > COMPARE 
(2) 003622 001401 BEQ 2$ ::BR IF EXPECTED 
(1) 003624 104006 ERROR 6 :"MNCDI STIMULUS BIT REGISTER FAILED TO HOLD A FLOATING 
(1) 003626 006337 001124 2$: ASL SGDDAT 7CHANGE THE DATA 
(1) 003632 001362 BNE 1$ [BR IF MORE DATA 


M 2 
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CVMNBB P11 08-AUG-79 10:38 14 FLOAT A 0 ACROSS THE MNCDI STIMULUS BIT REGISTER SEQ 0025 


FFARR EREREEAEEERAEEREEEEREERERERREEEREEREREREEREEREREER ERE 


i*TEST 4 FLOAT A 0 ACROSS THE MNCDI STIMULUS BIT REGISTER 


J FERRARA AAA REA REREREE ARERR REE RARER EREREREREEREEREER ERD 


TST4: 
LOAD INITIAL BIT 
;LOAD LOOP ADDRESS 
1$: * LOAD one 
$ ; COMPLEMENT 
;LOAD MNCDI STIMULUS BIT REGISTER 
-SBDDA TREAD MNCDI STIMULUS BIT REGISTER 
S$GDDAT, SBDDAT ; COMPARE 
2s F EXPECTED 


7;BR I 
6 sMNCDI STIMULUS BIT REGISTER FAILED TO HOLD A FLOATING O 
2$: TEMP ; CHANGE THE DATA 
1$ 7;BR IF MORE DATA 


en APPAR ee eRe RRERAREAASASLARAAALALASLASRASAEAS AAAS AREAS ALAS ARRAS SS SS 


oe 


s*TEST 5 ENSURE THAT ‘RESET'’ CLEARS THE MNCDI STIMULUS BIT REGISTER 
DLR EERE EERE REE REE ERE REE REE 
T519% 
001160 ne STIMES 7D0 40 ITERATIONS 
175466 ,@SBR LOAD BITS TO BE RESET 
001124 CL sepbAt [CLEAR EXPECTED 
;CLEAR THE gil, 
000100 175172 #BIT6,a$TKS : ENABLE TKB IN 
175446 001126 MO @SBR ,$BDDAT READ MNCDI ST IPULUS BIT REGISTER 
E TST6 ;;BR IF CLEARED 
ERROR 6 [MNCDI STIMULUS BIT REGISTER FAILED TO CLEAR WITH ‘RESET 


TC IEIIIOISIO IEEE EIEIIIOIIIOII IOC IEE IISIIIIIOOIOIOIOISIITINIIIIIOIIO IDR I toet 


:*TEST 6 VERIFY BYTE OPERATION ON THE MNCDI STIMULUS BIT REGISTER 


FU AREER ERE 


TST6: 
i$. $LPADR :LOAD RETURN ADDRESS 

1$: -1° aSBR :LOAD MNCDI_STIMULUS BIT REGISTER 
Ae SGDDAT PECTED 


; YTE 
Scan, SBDDAT [READ MNCDI STIMULUS BIT REGISTER 
SGDDAT - SBDDAT ; COMPARE 


::BR IF SAME 
ra ‘CLEARING HIGH BYTE CHANGED LOW BYTE 
#2$,$LPADR [LOAD LOOP RETURN 
#-1.aSBR ;LOAD MNCDI STIMULUS BIT REGISTER 
#177400, $GDDAT SLOAD EXPECTED 

[CLEAR LOW BYTE 
oSeR. $BDDAT ‘READ MNCDI STIMULUS BIT REGISTER 
ScDDAT, , $BDDAT + COMPARE 


:;BR IF SAME 
6 ; CLEARING LOW BYTE CHANGED HIGH BYTE 


BBP LLL LLL LS 
— tf) SS SY os 
ee Ne Nee ee ae ae 


(4) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
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001126 


175246 
001126 
001126 
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17 TEST THAT BIT1 OF MNCDI STATUS REGISTER IS READ=-wRITE 


J ERE AREA ERE ARERE EERE E RARER EREEEREREREERERREERERERERRER EH 


:*TEST 7 TEST THAT BIT1 OF MNCDI STATUS REGISTER IS READ-WRITE 


'MmAAAAAAAAAAAALALAAALELLARASARASASSSLERE SESE ARRAS SRLS SARA ALAS ERS SY 


1817: SCOPE 
MOV 


#81T1,$GDDAT ;LOAD EXPECTED 

MOV $GDDAT ,aICSR [LOAD BIT1 INTO MNCDI STATUS REGISTER 

MOV @1CSR,$BDDAT [READ MNCDI STATUS REGISTER 

CMP SGDDAT , SBDDAT :TEST THAT IT SET 

BEQ 1$ :;BR IF SET 

ERROR 7 :BIT1 OF MNCDI STATUS REGISTER FAILED TO SET 
1$: BIC S$GDDAT.aICSR :CLEAR THAT BIT 

MOV @1CSR,$BDDAT READ MNCDI STATUS REGISTER AGAIN 

CMP SGDDAT, SBDDAT [TEST THE B 

BNE TST10 ;;BR IF CLEARED 

ERROR 7 :BIT1 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
FLARE RRR ERE EEEREREREEREREKEEREEEEEKEKEE 
[TEST 10 TEST THAT BIT2 OF MNCDI STATUS REGISTER IS READ-WRITE 


LDR REE REE AR EEE RAEEREEEREEKEKEREREEKEKEEEE KE 


TST10: SCOPE 


MOV #BIT2,$GDDAT ;LOAD EXPECTED 

MOV SGDDAT,@aICSR ;LOAD BIT2 INTO MNCDI STATUS REGISTER 

MOV @I1CSR,$BDDAT :READ MNCDI STATUS REGISTER 

CMP SGDDAT . SBDDAT ; TEST THAT IT SET 

BEQ 1$ 7 7BR IF SET 

ERROR 7 ;BI1T2 OF MNCDI STATUS REGISTER FAILED TO SET 
1$: BIC SGDDAT,a@ICSR :CLEAR THAT BIT 

MOV @I1CSR,$BDDAT *READ MNCDI STATUS REGISTER AGAIN 

CMP SGDDAT . SBDDAT : TEST THE BIT 

BNE TST11 7;BR IF CLEARED 

ERROR 7 ;B1T2 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
DLE REE EKEERAEEE REE RE EEE ERE EREEEEREEREREEREKEEKEEREEEER KE 
;*TEST 11 TEST THAT BIT3 OF MNCDI STATUS REGISTER IS READ-WRITE 

'MARAAAASAARASAALSLASALALSSLASSLAL ESAS SSE SALES AS AS SSS ASSESSES RAR SAS SS 

6111: SCOPE 

MOV #B1T3,$GDDAT ;LOAD EXPECTED 

MOV SGDDAT,a@ICSR ;LOAD BIT3 INTO MNCDI STATUS REGISTER 

MOV @ICSR,$BDDAT ;READ MNCDI STATUS REGISTER 

CMP $GDDAT, $BDDAT : TEST THAT IT SET 

BEQ 1$ san IF SET 

ERROR 7 ;BIT3 OF MNCDI STATUS REGISTER FAILED TO SET 
1$: BIC SGDDAT @ICSR :CLEAR THAT BIT 

MOV aICSR,$BDDAT *READ MNCDI STATUS REGISTER AGAIN 

CMP $GDDAT , $BDDAT : TEST THE BIT 


BNE TST12 ;;BR_IF CLEARED 
ERROR 7 3;B1T3 OF MNCDI STATUS REGISTER FAILED TO CLEAR 


SEQ 0026 


B 3 


CVMNB-B MNCDI DIAGNOSTIC MACY11 30G(1063) O8-AUG-79 10:48 PAGE 13 
CVMNBB.P11 - OB-AUG-79 10:38 Ti2 TEST THAT BIT4 OF MNCDI STATUS REGISTER IS READ-WRITE SEQ 0027 
452 FFARR AERA AAAARAAARAAAAAEAARAAENRAEAAAERAEARAEEARARERAKRERERERE ERED 
(4) T*TEST 12 TEST THAT BIT4 OF MNCDI STATUS REGISTER IS READ-WRITE 
(4) SF ARARARAAAARAARARIRARRAAAAAREARERARERRARERRARRRERE PARR RASAAALSS SS S| 
(3) 004336 000004 TST12: SCOPE 
(1) 004340 012737 000020 001124 MOV #B1T4,SGDDAT ;LOAD EXPECTED 
(1) 006346 013777 0011246 175040 MOV SGDDAT,aICSR [LOAD BIT4 INTO MNCDI STATUS REGISTER 
(1) 004354 017737 175034 001126 MOV @ICSR, $BDDAT “READ MNCDI STATUS REGISTER 
(1) 004362 023737 601124 001126 CMP SGDDAT , SBDDAT :TEST THAT IT SET 
(2) 004370 001401 BEQ 1$ :;BR IF SET 
CV) 004372 104007 ERROR 7 :BIT4 OF MNCDI STATUS REGISTER FAILED TO SET 
( 
(1) 006374 043777 001124 175012 1$: BIC SGDDAT,@ICSR :CLEAR THAT BIT 
(1) 004402 017737 175006 001126 MOV @ICSR,$BDDAT TREAD MNCDI STATUS REGISTER AGAIN 
(1) 004410 023737 001124 001126 CMP $GDDAT , SBDDAT :TEST THE BIT 
(3) 004416 001001 BNE iST13 ;;BR IF CLEARED 
(1) 004420 104007 ERROR 7 :BIT4 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
453 PETIT Tite treet titi titi titi iti tittttiititii titi titi testi tte ttt i ty 
(4) TeTEST 13 TEST THAT BITS OF MNCDI STATUS REGISTER IS READ-WRITE 
(4) CL REAR ERR RE EEE REAR REREAER ERR EEREREKREREEEREAREERRERE EE 
(3) 004422 000004 T$113: SCOPE 
(1) 004424 012737 000040 001124 MOV #8115, $GDDAT ;LOAD EXPECTED 
(1) 004432 013777 001124 174754 MOV $GDDAT,aICSR LOAD BITS INTO MNCDI STATUS REGISTER 
(1) 004440 017737 174750 001126 MOV @1CSR,$BDDAT “READ MNCDI STATUS REGISTER 
(1) 004446 023737 001124 001174 CMP S$GDDAT , SBDDAT =TEST THAT IT SET 
(2) 004454 001401 BEQ i$ ::BR_IF SET 
(1) 004456 104007 ERROR 7 :BITS OF MNCDI STATUS REGISTER FAILED TO SET 
( 
(1) 004460 043777 001124 174726 18: BIC SGDDAT.aICSR ;CLEAR THAT BIT 
(1) 004466 017737 174722 001126 MOV @1CSR, $BDDAT TREAD MNCDI STATUS REGISTER AGAIN 
(1) 004474 023737 001124 001126 CMP SGDDAT , SBDDAT :TEST THE BIT 
(3) 004502 001001 BNE TST14 :;BR_IF CLEARED 
(1) 004504 104007 ERROR 7 :BITS OF MNCDI STATUS REGISTER FAILED TO CLEAR 
454 CL AREER RRR ERE ERATE REESE 
(4) TRTEST 14 TEST THAT BIT6 OF MNCDI STATUS REGISTER IS READ-WRITE 
(4) LL RARER ERA REE REE R EKER REAEERERAEER ERE ERKEEREREEEE REAR RER EERE 
(3) 004506 000004 7$114: SCOPE 
(1) 004510 012737 000100 001124 MOV #8116, $GDDAT :LOAD EXPECTED 
(1) 004516 013777 001124 174670 MOV $GDDAT,aICSR [LOAD BIT6 INTO MNCDI STATUS REGISTER 
(1) 004524 017737 174664 001126 MOV @1CSR,$BDDAT TREAD MNCDI STATUS REGISTER 
(1) 004532 023737 001124 001126 CMP $GDDAT, SBDDAT ZTEST THAT IT SET 
(2) 004540 001401 BEQ 1$ :;BR IF SET 
(1) 004542 104007 ERROR 7 :BIT6 OF MNCDI STATUS REGISTER FAILED TO SET 
(1) 006544 043777 001124 174642 1S: BIC SGDDAT,a@ICSR ZCLEAR THAT BIT 
(1) 004552 017737 174636 001126 MOV @1CSR,$BDDAT [READ MNCDI STATUS REGISTER AGAIt 
(1) 004560 023737 001104 001126 CMP SGDDAT, SBDDAT [TEST THE BIT 
(3) 001001 BNE T5115 ::BR IF CLEARED 
(1) 004570 104007 ERROR 7 *BIT6 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
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CVMNBB .P11 08-AUG-79 10:38 T15 TEST THAT BIT8 OF MNCDI STATUS REGISTER IS READ-WRITE SEQ 0028 


456 FL AERA AAA ERAAERRERREROREPRRARERHERERRARRERER ENE HY 

(4) TeTEST 15 TEST THAT BIT8 OF MNCDI STATUS REGISTER IS READ=WRITE 

(4) FEAR ERE RERAR RARER AAR EAR RAE RR REREAD 

(3) 004572 000004 TST15: SCOPE 

(1) 004574 012737 000400 001124 MOV #B1T8,$GDDAT ;LOAD EXPECTED 

(1) 004602 013777 001124 174604 MOV SGDDAT ,aICSR [LOAD BIT8 INTO MNCDI STATUS REGIS: 
(1) 004610 017737 174600 001126 MOV a1CSR,$BDDAT [READ MNCDI STATUS REGISTER 

(1) 006616 023737 001124 001126 CMP SGDDAT , SBDDAT STEST THAT IT SET 

(2) 004624 001401 BEQ 1$ :;BR_IF SET 

( 004626 104007 ERROR 7 :BIT8 OF MNCDI STATUS REGISTER FAILED TO SET 
( 

(1) 004630 043777 001124 174556 1$: BIC SGDDAT,a@ICSR :CLEAR THAT BIT 

(1) 004636 017737 174552 001126 MOV a1CSR,$BDDAT [READ MNCDI STATUS REGISTER AGAIN 

(1) 644 023737 001124 001126 CMP SGDDAT , SBDDAT “TEST THE BIT 

(3) 004652 001001 BNE TST16 7;BR_IF CLEARED 

(1) 004654 104007 ERROR 7 :BIT8 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
457 FREER EERE REE REE ERE RARE EERE REEREEEE EERE 

(4) Z*TEST 16 TEST THAT BIT9 OF MNCDI STATUS REGISTER IS READ-WRITE 

(4) J LR RR EEREKEREERE EEE EKER EEE EREEEREE EERE EERE EERE EEE 

(3) 004656 000004 T5116: SCOPE 

(1) 004660 012737 001000 001124 MOV #BIT9,$GDDAT ;LOAD EXPECTED 

(1) 006666 013777 001124 174520 MOV SGDDAT,aICSR [LOAD BIT9 INTO MNCDI STATUS REGISTER 
(1) 004674 017737 174514 001126 MOV @1CSR, $BDDAT [READ MNCDI STATUS REGISTER 

(1) 006702 023737 001124 001126 CMP SGDDAT , SBDDAT :TEST THAT IT SET 

(2) 004710 001401 BEQ 1$ ::BR IF SET 

(1 004712 104007 ERROR 7 :BIT9 OF MNCDI STATUS REGISTER FAILED TO SET 
(1) 0064714 043777 001124 174472 18: BIC SGDDAT,aICSR ZCLEAR THAT BIT 

(1) 006722 017737 174466 001126 MOV a1CSR,$BDDAT [READ MNCDI STATUS REGISTER AGAIN 

(1) 004730 023737 001124 001126 CMP SGDDAT , SBDDAT [TEST THE BIT 

(3) 004736 001001 BNE TST17 ;;BR_IF CLEARED 

(1) 004740 104007 ERROR 7 :BIT9 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
458 bd RARER RERRRE EERE ERE REERRERRARRERERREREERERERREREREE RRR 

(4) Z*TEST 17 TEST THAT BIT12 OF MNCDI STATUS REGISTER IS READ-WRITE 

(4) SUIS ICICI UID IOIDIIDIIIDIOIOIIOII OER IOI IIIT I 

(3) 004742 000004 TST17: SCOPE 

(1) 004744 012737 010000 901124 MOV #B1T12,$GDDAT ;LOAD EXPECTED 

(1) 004752 013777 001124 174434 MOV $GDDAT,a@ICSR :LOAD BIT12 INTO MNCDI STATUS REGISTER 
(1) 004760 017737 174430 001126 MOV @ICSR, $BDDAT “READ MNCDI STATUS REGISTER 

(1) 004766 023737 001124 001126 CMP SGDDAT , SBDDAT [TEST THAT IT SET 

(2) 004774 001401 BEQ 1$ 7:BR IF SET 

sp 004776 104007 ERROR 7 :BIT12 OF MNCDI STATUS REGISTER FAILED TO SET 
(1) 005000 043777 001124 174406 1$: BIC SGDDAT.@ICSR ;CLEAR THAT BIT 

(1) 005006 017737 174402 001126 MOV a1CSR,$BDDAT TREAD MNCDI STATUS REGISTER AGAIN 

(1) 005014 023737 001124 001126 CMP SGDDAT , $BDDAT “TEST THE BIT 

(3) 005022 001001 BNE TST20 ::BR IF CLEARED 

(1) 005024 104007 ERROR 7 7B1T12 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
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001124 
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001126 
001126 


174322 
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TEST THAT BIT14 OF MNCDI STATUS REGISTER IS READ=WRITE SEQ 0029 
FERRARA AERA EERE REE EERE RERERREREERERERERRER ERE 
TEST 20 TEST THAT &'T14 OF MNCDI STATUS REGISTER IS READ-wRITE 
LRA ARR RAEARERERAEAEREERREEKERKEEEEEREEREEREEREREEAAREA EERE EEE 
T$T20: SCOPE 
MOV #81714, $GDDAT ;LOAD EXPECTED 
MOV $GDDAT. aI CSR ;LOAD BIT14 INTO MNCDI STATUS REGISTER 
MOV aiCSR,$BDDAT ;READ MNCDI STATUS REGISTER 
CMP SGDDAT , SBDDAT :TEST THAT IT SET 
BEQ 1$ ;;BR IF SET 
ERROR 7 :BIT14 OF MNCDI STATUS REGISTER FAILED TO SET 
1$: BIC S$GDDAT,@ICSR ;CLEAR THAT BIT 
MOV @1CSR,$BDDAT READ MNCDI STATUS REGISTER AGAIN 
CMP S$GDDAT , SBDDAT =TEST THE BIT 
BNE TST21 ;;BR IF CLEARED 
ERROR 7 :BIT14 OF MNCDI STATUS REGISTER FAILED TO CLEAR 
DIGGS IISIOIISIIIIIIOISIEIOISIIIIIDDIDDISOIO INSIDE otis 
TEST 21 ENSURE THAT ‘RESET’’ CLEARS THE MNCDI STATUS REGISTER 
LTR KERR ERE ERE EERE EEEEREEEEREKE 
T$121: SCOPE 
MOV #40, $TIMES ::D0 40 ITERATIONS 
MOV #40426, a1(SR LOAD BITS TO BE RESET 
CLR SGDDAT [CLEAR EXPECTED 
RESET :CLEAR THE DEVICE 
BIS #B1T6,aSTKS ZENABLE TKB IN 
MOV @1CSR,$BDDAT READ PNCDI. STATUS REGISTER 
BEQ TST22 ;;BR IF CLEARED 
ERROR 7 :MNCDI STATUS REGISTER FAILED TO CLEAR WITH ‘ RESET" 
SL RARER RARER KEE EERE ERRARRR REE 
TTEST 22 VERIFY HIGH BYTE OPERATION ON THE INPUT STATUS REGISTER 
MR SSALALASLASALARALASLASAASAALSLSSASSSE SARS AAR ASSESSES AAAS AAR RRS SSS | 
7$122: SCOPE 
MOV #40426, aI(SR ;LOAD INPUT REG. BIT 
CLRB = @ICSR1 :CLEAR HIGH BYTE 
MOV #B1T4'!BIT2! :BIT1.SGDDAT LOAD EXPECTED 
MOV @1CSR,$BDDA READ INPUT STATUS REG. 
CMP SGDDAT, SBDDAT * COMPARE 
BEQ TST23 :iBR IF SAME 
ERROR 7 :CLERING HIGH BYTE CHANGED LOW BYTE 
SRA EEREERAK EERE ERE EEE EERE EK ES 
TEST 23 VERIFY LOW BYTE OPERATION ON THE INPUT STATUS REGISTER 
CIARA ERA AAA ERA ER ERE RA AERA EEERKEEREEEEA RARER ERERE REESE 
1$123: SCOPE 
MOV #40426, @ICSR :LOAD, INPUT REG. 
CLRB CSR CLEAR LOW BYTE 
MOV 740200, SGDDAT : LOAD EXPECTED 
MOV @1CSR,$BDDAT READ INPUT STATUS REG. 
CMP $GDDAT , $BDDAT ARE 


BEQ TST24 ;7BR IF SAME 
ERROR 7 7CLEARING LOW BYTE CHANGED HIGH BYTE 
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VERIFY THAT MAINT. STROBE SETS ‘‘INPUT DATA READY"’ SEQ 0030 


© Sh tig ii igh eta haya aon aa tnt rai donning eaten trae eb + 


petal 24 VERIFY THAT MAINT. STROBE SETS ‘‘INPUT DATA READY"' 


bd fF TAAAAARAAHRAAARAAAAARAAERARERERARAERERRARERAERARAEARAARREAERATE NEE 


SCOPE 

CLR a@ICSR ENSURE CLEAR FLAG 

MOV #B1T7,$GDDAT ;LOAD EXPECTED DATA 

MOV MBITEXT!BIT7,aI1CSR GENERATE MAINT. STROBE 

MOV @1CSR,$8DDAT ;READ INPUT ee REGISTER 

CMP $GDDAT , SBDDAT ; COMPARE RESULTS 

BEQ TST25 ::BR IF SAME 

ERROR 7 MAINT. STROBE FAILED TO SET ‘INPUT DATA READY" 


CF RAATRARARAAAARARARAAAERREAERRAAAKRARAERRARREERAERERERERERAERERRERR EH 


i*TEST 25 VERIFY THAT “"INPUT DATA READY'’ CAN BE WRITTEN TO A ZERO 


LL AAARARAARAEAAARAERAAAEA ARERR RAEEERAEREERAHEERRERARRERAERERRA RHEE EH 


SCOPE 

CLR $GDDAT ;LOAD EXPECTED DATA 

MOV —- #BITEXT,@ICSR GENERATE MAINT. STROBE 

CLR —@ICSR CLEAR DATA READY FLAG 

MOV — aI CSR, SBDDAT READ INPUT STATUS REGISTER 

CMP = $GDDAT. SBDDAT ; COMPARE 

BEQ =‘ TST26 :;BR_IF SAME 

ERROR 7 ;“INPUT DATA READY'' FAILED 70 BE WRITTEN TO A ZERO 


SF EAA RARARARAERAERARRERAEAERAARARERAARAAERAAAAEREEAREAEATRAERO RARER ERE 


s*TEST 26 VERIFY THAT "INPUT DATA READY*’ CAN BE CLEARED BY A ‘RESET"’ 


SLA AREA ARERR ERAEEKERRE REAR ERRA EEE AERERERRAE EKER 


SCOPE 
MOV #40 ,$TIMES ::DC 40 ITERATIONS 
CLR SGDDAT LOAD EXPECTED DATA 
ae #BITEXT,@ICSR :GENERATE MAINT. STROBE 
SE 
BIS #B1T6,a$TKS ;ENABLE TKB IN 
MOV aI1CSR,$BDDAT READ INPUT STATUS REGISTER 
CMP $GDDAT , $BDDAT ; COMPARE 
BEQ TST27 ;;BR IF CLEARED 
FRROR 7 ;''INPUT DATA READY'' FAILED TO BE CLEARED BY ‘RESET*’ 


SLA AERA ERR RERE EEE EERE AERA AAEAERHORAENAEEAEREEE EH 


S*TEST 27 "INPUT DATA READY'’ WILL NOT SET IF IN STIMILUS MODE AND NO SBR MATCH 


FTAA AERA ARR EEERER AERA EE RAEREERAEREEARAERERRERERERER EERE & 


SCOPE 

CLR @SBR :CLEAR SBR REGISTER 

MOV #-1,aDIR :CLEAR_ INPUT REGISTER 

MOV #B1T2,aI1CSR :SET STILILUS MODE 

BIS WBITEXT. @ICSR GENERATE MAINT. STROBE 

MOV #B1T2,$GDDAT “LOAD EXPECTED 

MOV @1CSR,$8DDAT READ STATUS 

CMP SGDDAT , SBDDAT ; COMPARE 

BEQ TST30 ;;BR IF CLEARED 

ERROR 7 ; INPUT STROBE SET INPUT READY WHEN IN STIMILUS MODE 
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Y é 
/ 


VERIFY THAT ‘OVERRUN ERROR’ SETS SEQ 0031 
FE RAAAEAARAAAARARAAARARAAAARRARERAAERRAARHEAREREHERREK HEE RARER RENE e 
s*TEST 30 VERIFY THAT ‘OVERRUN ERROR’ SETS 
CF REAR ARAAAARAAAAARAAAARRARAAEKRARAEREARERARARRARRARERRERARRAAERE 
TST30: SCOPE 
MOV na ft ee bg BIT1,$GDDAT ;LOAD EXPECTED 
MOV #BIT1,aICSR SET STROBE MODE 
BIS WBITEXT'BIT7,a @ICSR ; GENERATE MAINT. STROBE 
BIS #BITIS'BITEXT'BIT7, aIcsR ; GENERATE MAINT. STROBE AGAIN 
MOV a@1CSR,SBDDAT sREAD INPUT STATUS REGISTER 
CMP SGDDAT , SBDDAT ; COMPARE 
BEQ TST31 7 BR IF SAME 
ERROR 7 ;' DOVER RUN’ FAILED TO SET 
: MOABRBRRRBRBRASRRASASASASASAR SRE SRR R RR RR RRR SRR RARER RR RR RRR RRR RRR RRR RRR SSS 
seTEST 31 VERIFY THAT ‘OVERRUN ERROR’ CAN BE WRITTEN TO A ZERO 
FF EAA AAARAAARARAARARARAAAAARRAERARAAAAAAAAAAAARRARARAAAAAAAAAHEEAAES 
TST31: SCOPE 
MOV #BIT7!BIT1,$GDDAT - LOAD EXPECTED VALUE 
MOV #BIT1,aICSR ET STR 
BIS #BITEXT'BIT7,@ alcsr GENER . TE MAINT. STROBE 
BIS #BITIS!BITEXT | BIT7, alcsR’ ;GENERATE MAINT. STROBE AGAN 
CLRB @ICSR1 :CLEAR HIGH BYTE OF THE INPUT STATUS REGISTER 
MOV @!1CSR,$BDDAT “READ INPUT STATUS REGISTER 
CMP $GDDAT , S$BDDAT * COMPARE 
BEQ TST32 ::;BR IF SAME 
ERROR 7? 7" OVERRUN ERROR" FAILED TO BE WRITTEN TO A ZERO 


WER eRe ea RARRRRRR RAR RR RR RRR RRR RRR RRR RR RRR RRS RRR RRR AR RRR RR RRS SS 


SeTEST 32 


Eee Ree RRR RRRRR RRR R RRR RRR RRR RR RR RARER RR RRR RRR RRR RRR RRR RRR RRS SS 


TS132: 


VERIFY THAT ‘RESET’ 


#40,STIMES 
$GDDAT 
#B1T1,a1CSR 


ABITEXT,@ICSR 
#BITEXT,@ICSR 


#BiT6,a$TKS 
@1CSR,$ADDAT 
SGDDAT , SBDDAT 
Ab 


CLEARS ‘OVERRUN ERROR™’ 


3:DO0 40 ITERATIONS 


7CLEAR EXPECTED 

:SET STROBE MODE 

GENERATE MAINT. STROBE 
;GENERATE MAINT. STROBE AGAIN 


sENABLE TKB INTR. 
READ INPUT REGISTER 
; COMPARE 

AME 


ZRESET FAILED TO CLEAR “DVERRUN ERROR" 
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04007 
ge? 006014 023737 001124 


568 

569 006026 012777 010000 
570 006034 005037 001124 
571 006040 017737 173354 
S72 006046 023737 001124 


590 006164 006337 001442 
591 006170 001342 


G 
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173446 
001126 
001126 


173420 


001126 


173360 


001126 
001126 


001110 


001124 


173270 
173256 
173250 
001126 
001126 





























VERIFY INVERT DATA FUNCTION SEQ 0032 
FF PAARAAARAARAARAAAAAANRAARERARARRAAORAAARAAREREREAHERRARERERTEREHE 
r*TEST 33 VERIFY INVERT DATA FUNCTION 
FSR AARAAAARARARARARAAARARARARARAARAAARAARERARARARAATRARHAHHRARAREO ES 
TST33: SCOPE 

: CLR $GDDAT ; LOADE XPECTED 

MOV #BITDAT, + SET INPUT INHIBIT 

MOV aDiR ,SBDDA “READ INPUT 

CMP SDDAT. SBDDAT ; COMPARE 

BEQ 1$ ;7BR IF SAME 

ERROR r ; INPUT INHIBIT FAILED TO INHIBIT INPUT 
1$: MOV #BITDAT'BITS'BITS,@ICSR ; *SET INVERT DATA AND INPUT [NHIBIT 

MOV #-1 ,SGDDAT ;LOAD EXPECTED 

MOV aDIR,S$ADDAT “READ INPUT 

BNE 2$ ;BR IF NON-ZERO 

ERROR 7 Z INVERT DATA FUNCTION FAILED 
2$: CMP $GDDAT , $BDDAT ; COMPARE DATA é 

BEQ 3$ :7BR IF SAME 

ERROR 7 S INVERT DATA = DATA PATH ERROR 
3$: MOV #BITDAT,aICSR :SET INPUT INHIBIT 

CLR $GDDAT sCLEAR EXPECTED 

MOV aDIR,S$BDDAT *READ INPUT 

CMP SGDDAT , $ADDAT >: COMPARE 

BEQ TST34 ::RBR IF SAME 

ERROR 7 , INVERT DATA FUNCTION OR INPUT INHIBIT FAILED 
SF AERA ARAARAAAAAARAARARERAEE RARER AEKERRARARARRARERAAAAAAARARKEKRE ES 
ZRTEST 34 VERIFY EACH BIT OF THE MNCDI INPUT DATA REGISTER CAN BE CLEARED 
FF TAA AAARERARAAAARAARERAAAEAAAEKTARERAAAEAARARAARRAAREAKAEKAAAEAAA AE & 
TST34: SCOPE 

MOV #1$, gh ;LOAD LOOP wis ON ERROR 

MOV #BITO, TEMP ;LOAD INITIAL BIT 
ip; MOV ABITDAT'BIT4!BITS, @ICSR ;LOAD INHIBIT INPUT AND INVERT DATA 

MOV TEMP ,SGDDAT ;LOAD EXPECTED 

COM $GDDAT *MAKE OPPOSITE 

MOV aDIR,RO SREAD INPUT 

MOV TEMP ,aDIR :CLEAR THE INPUT BIT 

RIC #BITS aICSR SREM INVERT DATA BITOVE 

bIS #B1T1,aICSR sENABLE EXT. STROBE TO PREVENT DATA INPUT BEING 

MOV aDIR,$8DDAT =READ INPUT REG. 

CMP $GDDAT, $BDDAT ; COMPARE 

BEQ 2$ :;BR IF SAME 

ERROR 10 7 INPUT wee asta BIT FAILED TO CLEAR 
28: ASL TEMP + SHIFT THE D 

BNE - 1$ : TRY MORE Bits. 


Toate tabkdtt co. 
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30G (1063) 
735 VERIFY THAT “RESET'’ CLEARS MNCDI INPUT DATA REGISTER SEQ 0033 
FF REARS AARA AERA RARAARRERARARAAAARATRAARRAREAERERAAAARHAREAEROTREA ES 
r*TEST 35 VERIFY THAT ‘RESET'’ CLEARS MNCDI INPUT DATA REGISTER 
J LRA AAA AAA AAARRAARARARRRARAAHRAEAERARAEAEAAEAEREARARERRERERARHRR EEE 
TST35: SCOPE 
MOV #40,$TIMES :D0 40 ITERATIONS 
MOV #BITEXT ‘BITS BITS. @ICSR ; INVERT DATA AND INHIBIT INPUT 
MOV aDIR, TEMP READ REGISTER 
CLR $GDDAT ;LOAD EXPECTED 
RESET ;CLEAR THE INPUT REG 
BIS #B1T6,a$TKS ;ENABLE TKB INTR. 
BIS #BIT2,aICSR : INHIBIT REG. FROM BEING CLOCKED 
MOV aDIR,$BDDAT *READ REGISTER 
BEQ TST36 sR IF CLEARED 
ERROR 10 ;RESET FAILED TO CLEAR INPUT REGISTER 
LL RARER ARR RRAARERARAAAE ARERR REE EAR HRHEEAEREAA RES 
s*TEST 36 VERIFY THAT A 2ND STROBE PULSE WILL NOT CHANGE THE DIR DATA 
STARA RAE RARER ERAREAAAEERA REAR EAERERERAEAERAEAEEREE EERE EEE EH 
TST36: SCOPE 
MOV #BITI2'BITS'BITS'BIT1,aICSR ;DISABLE INPUTS, ENABLE INVERT DATA, EXT 
BIS ah gh, Ue aICSR : GENERATE MAINT. STROBE 
BIC #BITS,@ICSR ;REMOVE INVERT DATA 
BIS mBITEXT B17, @ICSR SET MAINT. STROBE AGAIN 
MOV #-1,$GDDAT ;LOAD EXPECTED DATA 
MOV apIR, S$BDDAT ZREAD REGISTER 
CMP $GDDAT, $BDDAT ; COMPARE 
BEQ TST 37 7 ;BR IF SAME 
10 ;DATA READY FAILED TO INHIBIT 2ND 


; STROBE FROM CHAINING THE DIR 


Cv 


= 
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MER RRRRRARAALAAASASLALELASASRASESER ERR RRR RRR RA RASA RARRRRARARA SAAS DSS 


TRTEST 37 INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA DATA READY VECTOR 


5s RRARRAAARAARARAAAEAERARARAEAAAKAARARARRARERAAAARAAARAARAARRORH ERS 


TST37: 
#64$,$LPADR 
643: #1$, aD IDINV ;LOAD RETURN VECTOR 
000200 1) #200, aDIDINS ;LOAD RETURN LEVEL 


006366 108. -(SP) 


000102 173020 : #B1T6!BIT1,aICSR SET STROBE MODE 
004200 173012 MBITEXT!BIT?,@ICSR ;GENERATE MAINT. STROBE 


172776 CL a@iCSR ;CLEAR STATUS 
11 [MNCDI INPUT DATA READY FAILED TO INTERRUPT 
2$ :RESET VECTOR 


(SP)+,(SP)+ ;CLEAN STACK 
172764 aICSR :CLEAR DEVICE 
001432 DIDINS ,@DIDINV 

004700 #4700, aD IDINS 


SIO IOI IIDIOIIUIOIOIDIOIIDIOIOIIUIDIOIOIDIOIIIOUIOISIOIOISIOIDIOISIOIIOISIOIDISIOIOIOIISIGIOIDI 
SRTEST 40 INTERRUPT TEST -- VERIFY MNCDI INTERRUPTS VIA OVERRUN ERROR 
PSII IOI ISIC IIIS IIOISIUIGHIDIDIOIISIIOISIIOIOIIIDIOIIUIOIISIOIOIIIOIISISIOIOIIOIOIDIOISIIOI 
TST40: 

006534 172760 MOV #1$,aDIEINV ;LOAD RETURN VECTOR 

000200 172754 #200, aDIEINS ;LOAD RETURN STATUS 


-(SP) 
#10$,-(SP) 
#BIT14'BIT1,aICSR ;ENABLE INTR. AND STROBE MODE 


#BITIS'RITEXT!BIT7,@ICSR GENERATE MAINT. STROBE 
#BITIS'BITEXT!BIT7,@ICSR ;GENERATE MAINT. STROBE AGAIN 70 SET OVE 


172664 CLR @lIcSR ;DISABLE INTR. 
11 :MNCDI FAILED TO INTERRUPT ON ‘OVERRUN ERROR 
cs > RESET VECTOR 


: (SP) +, (SP)+ 7CLEAN THE STACK 
172652 : a1CSR CLEAR DEVICE 
001436 172664 DIEINS ,@DIE INV 

004700 172660 are QD 1E INS 


(SP) 
006566 #11$, -(SP) 
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172524 
172506 


172470 
001124 


001126 
001126 


172436 
172420 


172402 
001124 


001126 
001126 


RRA EEE ARERR ERE ERERERRE EE 


-- INPUT STROBE WILL SET THE INPUT DATA READY FLAG 
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INTERRUPT TEST == VERIFY MNCDI INTERRUPTS VIA OVERRUN ERROR 


T*TEST 41 


SERRATE RERAEAAAEETEEEEREKEEE REE eH 


1S141: 


1$: 


Wee ee eRe RRR EREERERERRRARRSARESARRASARRRR RAS ARR SLA ARREARS RSA SSS SS 


BEQ 
ERROR 


S*TEST 42 


TST42: 


'WeRA AAAS RARASASELARASASASASAREASRASERRSARAS RR SRAS EAA REAR ARS SESS ESS 


SCOPE 


T*TEST 43 


TST43: 


BEQ 
ERROR 


a 2 
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VERFIY MODE 00 


@SBR 
AE 


#25982, a@DOR 
#8117, $GDDAT 
PC ,DELAYO 
aICSR, $BDDAT 
$GDDAT , $BDDAT 


TST42 7 BR IF 


2 
VERIFY MODE 01 


#-1,aDIR 
@SBR 
bit -@ICSR 


aoc 

#52525,a 
wIT?BIT $GDDAT 
PC,DELAYO 

alCSR, $BDDAT 
$GDDAT , SBDDAT 


TST43 ;2BR IF 


2 
VERIFY MODE 10 


#-1,aDIR 

aSBR , 
#BIT2,aI1CSR 

a0CSR 

#70707,aDOR 
#BIT2,$GDDAT 

PC ,DELAYO 

a!1CSR,$BDDAT 
SGDDAT , SBDDAT 

abe: 7 BR IF 


-- INPUT STROBE WILL SET THE INPUT DATA READY FLAG 


5 TARA RARER ERE ERERAEKEEERRREKREAE KERR EE RR EAEEREREAREEAEREREREER EE 


~~ INPUT STROBE WILL NOT SET INPUT DATA READY FLAG 


'WeEAAAAAAAAERAAAAEASALASZASASEAASARAAAS ARR RASRAR RAS ARSE SARA RSS SS SS | 


SEQ 0035 








TEST IF WRAP-AROUND OR TESTER MODE 


BR IF YES 
;NO_ REPORT END OF PASS 
;CLEAR INPUT REG. 

ZCLEAR STIM. REG. 

;CLEAR INPUT wee READY FLAG 
;CLEAR OUTPUT STATUS 

[WRITE TO THE OUTPUT DATA REG. 
;LOAD EXPECTED 
:DELAY A SHORT TIME 

;READ STATUS 

; COMPARE 

SET 
s;MODE 00 














“- EXT. STROBE FAILED TO SET INPUT DAT 










;CLEAR INPUT REG. 

;CLEAR STIM. REG. 

;CLEAR INPUT DATA READY FLAG 
;CLEAR OUTPUT STATUS 

;WRITE TO THE OUTPUT DATA REG. 
;LOAD EXPECTED 

sDELAY A SHORT TIME 

READ STATUS 

;COMPARE 
SET 

MODE 01 










~~ EXT. STROBE FAILED TO SET INPUT DAT 









:CLEAR INPUT REG. 

;CLEAR STIM. REG 

;CLEAR INPUT DATA — FLAG 
CLEAR OUTPUT 

;WRITE TO THE OUTPUT DATA REG. 













CLEARED 
:MODE 10 






~~ EXT. STROBE SET INPUT DATA READY Fi 
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= RERREERRRAREERERRAREEEAEEAEERAEAEAAEAAAEREAEEAEARARAREEERHEEEEKRERKE EEE 


T*TEST 44 VERIFY INPUT REPLY SETS OUTPUT DONE FLAG 


FF AERA RAEEREERE AREER ARRERRA ERR ARERR ERERAAAEEREERERERE EE 


TST44: SCOPE 


JSR PC ,DELAYO 


MOV @0C SR, $BDDAT 
CMP ScDDAT, , SBDDAT 


ERROR 2 


aDOR 
MOV #B1T7,$GDDAT PECTED 
. #1, DWARF CHECK IF IN TESTER MODE 
1$ BR IF NOT 
MOV rat BE atte’ 


a0cs 
MOV MBITEXT!BIT7,@ICSR 
@ICSR 















;CLEAR OUTPUT DATA 
;LOAD EX 





;LOAD TESTER WRAPAROUND STATUS 

;CLEAR OUTPUT DONE FLAG 

:SET INPUT READY FLAG 

;CLEAR INPUT READY FLAG<GEN. INPUT REPLY> 


:DELAY A SHORT TIME 
READ OUTPUT STATUS 
; COMPARE 


F SET 
; INPUT REPLY FAILED TO SET OUTPUT DONE FLAG 


Wee AeA RRR ERR RRRRR ERE ERRRRRRREREAR ASRS ERRR ESSA SA RRR SAAR RR SRA SS SS 


T*TEST 45 VERIFY THE MNCDO = WRAPAROUND - MNCDI DATA PATH 


Witte eee eee ERRRERRERASARSRRRRRRARRARARRRRR RRR SRSA RAR SASRAS SSSA SSS SSS 


TST45: SCOPE 
MO 


‘OV #100, $TIMES 
MOV #-1,aDIR 
CLR aocsR 
MOV #B1T1,aICSR 
MOV #BITO, TEMP 
1$: MOV TEMP ,SGDDAT 
MOV #BIT1,aICSR 
MOV SGDDAT ,a@DOR 
es: TSTB aICSR 
BPL 2$ 
MOV aDIR,$BDDAT 
CMP S$GDDAT , SBDDAT 
BEQ 3$ 
ERROR 3 
3$: ASL TEMP 


BNE 1$ 





3:D0 100 BM aad 


INPUT REG. 
;CLEAR OUTPUT STATUS 
;INITILIZE THE INPUT STATUS REGISTER 


[LOAD EXPECTED 


;LOAD TYPEOUT EXPECTED 
SINITILIZE THE INPUT STATUS REG. 


;LOAD OUTPUT DATA REG. 
WAIT FO FOR STROBE PULSE 


CCUR 
READ INPUT DATA REGISTER 
; COMPARE 


F SAME 
; INPUT DATA PATH ERROR 
i TRY NEXT BIT 


BR IF MORE BITS 





i 3 
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754 FF RAAARARAAAERERREREREAAEAEEEKRAERRAHREREAREREREHRRERRREAEERERR ERE 

(3) s*TEST 46 VERIFY THE MNCDO = WRAPAROUND = MNCDI INVERTED DATA PATH 

(3) SLATER EER EERE ERR ERE EER ERE TR ER ERR RE et ett 

(2) 007250 000004 TST46: SCOPE 

(1) 007252 012737 000100 001160 MOV #100, $TIMES 3:;DO0 100 ITERATIONS 

755 007260 012777 177777 172132 MOV #-1,aDIR ;CLEAR INPUT at. 

756 0072 005077 172112 CLR @0CSR ;CLEAR OUTPUT STA 

757 007272 012777 Q00062 172114 MOV WBITS'BIT4!BIT1,aICSR * LOAD INPUT STATUS Ue INVERT DATA><READ ENABLE > 

es: 007 012737 000001 001442 MOV #BITO, TEMP “LOAD INITIAL BIT 

760 007 013777 001442 172074 1$: MOV TEMP ,aDOR ;LOAD OUTPUT DATA REG. 

761 007314 013737 001442 001124 MOV TEMP, $GDDAT iGET THE BIT 

762 007322 005137 001124 COM SGDDAT biog EXPECTED ry DATA 

763 007326 105777 172062 2s: TSTB @ICSR WAIT FOR INPUT READ 

764 007332 100375 BPL 2$ TO OCCUR 

765 007334 017737 172060 001126 MOV aDIR,$BDDAT “READ INPUT DATA REG. 

766 007342 023737 001124 001126 CMP $GDDAT . $BDDAT ; COMPARE 

767 007350 001401 BEQ 3$ 7;BR IF SAME 

A 007352 104003 ERROR 3 : INVERTED INPUT CATA PATH ERROR 

770 607354 042777 000200 172032 3$: BIC #BIT7,aICSR ; CLEAR 7 a READY 

771 007362 006337 001442 ASL TEMP TRY NEXT BIT 

772 007366 001347 BNE 1$ “BR IF MORE BITS 
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VERIFY IN 10 MODE THAT SBR AND INPUT BITS SET INPUT READY SEQ 0038 


STARA AREER EERE EEE ERE EREEREREERERREREREEREEE REED 


i*TEST 47 


REAR REEEEERKEERAEEAERERAEEEARKEKAEKEEERERAEAEEEEREEEEEAHEEREKEEEERE 


SCOPE 


MOV #100, 
INPUT DATA READY FLA 
LOA 


VERIFY IN 10 MODE THAT SBR AND INPUT BITS SET INPUT READY 


$TIMES pe 3:;D0 100 ITERATIONS 


DA FLOATING 1 ACROSS THE SBR 
VERIFY THAT ONLY THE CORRECT BIT SET DATA READY 


@DOR 

#B1T0, TEMP :LOAD INITIAL BIT 

@DOR : CLEAR QUTPUT BITS 
@SBR [CLEAR SBR REG. 
#B1T2,aI1CSR [CLEAR INPUT READY AND SET MODE 10 
#-1,aDIR [CLEAR INPUT REG 

TEMP, aSBR ;LOAD SBR REG. 
#B1T7,aICSR [CLEAR INPUT READY BIT 
TEMP, ADOR ‘LOAD OUTPUT REG. 
#B1T15iBIT7!BIT2,$GDDAT ;LOAD EXPECTED STATUS 
PC,DELAYO ‘DELAY A SHORT TIME 
@1CSR,$BDDAT [READ STATUS 

$GDDAT , $BDDAT * COMPARE 

2$ ::;BR IF SET 


2 ; INPUT DATA READY FLAG FAILED 
;TO SET IN MODE 10 <S7!MILUS MODE> 


;NOW LOAD ALL BITS EXCEPT THE FLOATING BIT AND ENSURE INPUT DATA READY DOES NOT SET 
2$: MOV TEMP, TEMP 1 COPY EXPECTED 


3$: 


COM 
CLR 


ol 


mpi ;USE REVERSE PATTERN 
aDOR ;CLEAR OUTPUT REG. 
#-1,aDIR ;CLEAR INPUT REG. 
#B1T15!BIT7,aICSR ;CLEAR INPUT DATA READY 
#BIT2,$GDDAT LOAD EXPECTED 
TEMP1 ,aDOR ;LOAD ALL OTHER ie BITS 
PC,DELAYO ;DELAY FOR A SHORT TIME 
@1CSR,$BDDAT ;READ INPUT STATUS 
SGDDAT , SBDDAT > COMPARE 
3$ ;:BR IF CLEARED 
2 ; INPUT DATA READY FLAG SET IN ERROR 

UNEXPECTED SBR BIT =F INPUT DATA READY 

TEMP TRY NEXT BIT 
1$ :BR IF MORE BITS 


FL RE REE REE ERE EEK RK ERE EEE EKEEKEERERERERE EE 


i*TEST 50 


'WEROAAAAAAASASALALASLASAALELALALSLALSLAASARAR ESAS ARERR RE ASA RES ASSES SS | 


S150: 


TEST THE TRANSITION ENABLE AND TRANSITION DETECTION 


@DOR 

#~-1,aDIR CLEAR INPUT REGISTER 

#B1T12,TEMP ;LOAD INITIAL TRANSITION BIT 
#BIT8!BIT2,aICSR SET STIM. CLEAR READY, ENABLE TRANS. 


#B1T15'BITBIBIT7!BIT2, $GDDAT ;LOAD EXPECTED STATUS 


CV 


N 
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#B1T15!BIT7,aICSR CLEAR READY 
MP ,@SBR ;LOAD STIMULUS REG. 
;LOAD INPUT REG. ab OUTPUT REG.> 
‘READ FOR A SHORT TIME 


D INPUT STATUS 
$oDDAT. , SBDDAT > COMPARE 


:2BR IF eae} 
ERROR 2 RANSITION ENABLE OR TRANSITION TO A ONE FAILED 
NOW REMOVE THE a ea DATA BIT curs SHOULD CAUSE THE INPUT READY FLAG TO SET AGAIN 
MOV a~ :CLEAR INPUT REG 


es: 1,aD1 
#B1T15'BIT7, aICSR :CLEAR INPUT READY Hing 
TEMP ,aDOR REMOVE THE INPUT DAT 
; THIS SHOULD CAUSE THE YRANSI TION TO A ZERO 
PC ,DELAYO ;DO A SHORT DELAY 
@I1CSR,$BDDAT *READ INPUT STATUS 
001126 SGDDAT , SBDDAT ; COMPARE 
3$ s3GR If SET 
2 ; TRANSITION TO A — FAILED 
001442 3$: oy * TRY “ge BIT 


‘BR IF 
REMAIN: 
CLEARER ERE EERE EEE EEE REE EERE KEE EE 
s*TEST 51 DETERMINE IF MORE MNCDI'S REMAIN TO BE TESTED 
FLERE EEE EER KERR EE 
TST5S1: 
000001 001160 MO #1,$TIMES 72D0 1 ITERATION 
001202 $SUNIT ; UPDATE UNIT NUMBER 
001202 001526 SUNIT,EVER 7 TEST IF MORE 
3$ ;7;BR IF NOT 
001404 #OCSR,R1 ;LOAD POINTER TO OUTPUT STATUS ADDRESS 
601462 : VADDRO, (R1)+ ;UPDATE OUTPUT BUS ADDRESS 
001414 R1,4DOR1+2 s TEST IF DONE 
BN 1$ “BRANCH IF NOT 
001464 : VADDR, (R1)+ ;UPDATE INPUT ADDRESS 
001430 R1,4SBR1+2 ;TEST IF DONE 
2$ BRANCH IF NOT 
MASKNM ; UPDATE ERROR ns BIT 
PC, WHI CHU ;DETERMINE UNIT 
UNI TBD RO GET UNIT # 
RO sMAKE Ln 


001430 VECLST(RO), aa GET VALUE 
geet DIDINS MAKE MOTHER VALUES 
#2 ,DIDINS 
DIDINV, A pee 
a4, 


DIDINY, DIE INS 
001436 
RESET TEST NUMBER 


003424 TEST NEXT UNIT 
010146 





































CVMNB-3 MNCD I 
CVMNBB .P11 


010146 


DIAGNOST 
08-AUG-79 





IC 
10:38 


010253 
001176 


010250 
000042 


010250 
003346 
002520 





B 4 
MACY11 os O08-AUG=79 10:48 PAGE 25 


001176 


000 
042116 
020123 


170646 


001460 


F PASS ROUTINE SEQ 0040 
-SBTTL END OF PASS ROUTINE 


MEST IS TTT Titi t it tii iii tii titi iii titi titi it iii iit iii i is) 
" S INCREMENT THE PASS NUMBER ($PASS) 
s*TYPE ‘END PASS #XXXXX'" (WHERE XXXXX IS A DECIMAL NUMBER) 
:*IF THERES A MONITOR GO TO IT 
;*IF THERE ISN'T JUMP TO EXTMSG 


SEOP: 
SCOPE 
CLR STSTNM ;ZE80 THE TEST NUMBER 
CLR STIMES 3! ZERO THE NUMBER OF ITERATIONS 
INC SPASS ; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS = DON' T ALLOW A NEG. NUMBER 
DEC (PC) + 2s. GOP? 
SEOPCT: . WORD 1 
BGT $SDOAGN sc YES 
MOV (PC)+,@(PC)+ 7zRESTORE COUNTER 
SENDCT: 1 
TYPE , SENDMG : 7 TYPE "END PASS #°' 
MOV $PASS,-(SP) 7s SAVE S$PASS FOR TYPEOUT 
TYPDS 3GO TYPE=-DECIMAL ASCII WITH SIGN 
TYPE  SENULL stm —& A NULL CHARACTER 
$GET42: MOV a42,R0 :GET MONITOR ADDRESS 
BEQ $DOAGN + BRANCH IF NO MONITOR 
RESET S CLEAR THE WORLD 
$SENDAD: JSR PC, (RO) ::GO TO MONITOR 
NOP 7: SAVE ROOM 
NOP 7c FOR 
NOP 37ACT11 
SDOAGN: 
JMP a(PC)+ 7 RETURN 
SRTNAD: .WORD EXTMSG 


SENULL: .BYTE -1,0 :NULL CHARACTER STRING 
SENDMG: .ASCIZ <ifocto> st Pass’ #7 


wo 
m 
2 
Oo 
~ 


EXTMSG: BIS MBIT6,a$TKS ENABLE TKB INTR. 
TST SERTTL ;TEST IF ANY ERRORS 
BEQ 1$ BR IF NONE 
TYPE -ERRTCT TYPE TOTAL ERF &S MESSAGE 
V SERTTL.-(SP) [PUSH TOTAL ERR. ’S ON STACK 
TYPDS TYPE IT 
CMP #1 ,MASKNM [TEST IF MULTIPL- 
BEQ 1$ BR IF NOT 
TYPE -MESGD TYPE BAD UNIT 
MOV BADUNT ,~ (SP) [PUSH BAD UNITS ON STACK FOR TYPE OUT 
TYPBN TYPE IT 
1$: TYPE, $ENULL 


SENSURE ALL TEXT GOT TYPED 
JSR Tgp TEST FOR CTRL C/G 
L 
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08-AUG-79 10:38 MNCDI TEST MODULE SWITCH TYPEOUT LOOP SEQ 0041 

888 -SBTTL MNCDI TEST MODULE SWITCH TYPEGUT LOOP 
889 010354 012706 001100 DIDATA: MOV STACK, SP ;LOAD THE STACK POINTER 
890 010360 003010 JSR PC,FIXADR FIX DEVICE ADDRESSES 

1 010364 104401 910442 TYPE, WAITO 
892 010370 005077 171020 1$: CLR @ICSR ot Ean INPUT STATUS 
893 010374 012777 177777 171016 MOV #-1,aDIR CLEAR INPUT DATA REGISTER 
894 010402 004737 003346 2$: JSR PC,CTRLCG STEST IF CTRL C/G 
895 010406 105777 171002 TSTB a@ICSR [WAIT FOR INPUT READY 

010412 100373 BPL 2$ 

897 010414 017746 171000 MOV a@DIR,-(SP) GET INPUT DATA 
898 010420 104402 TYPOC TYPE THE OCTAL VALUE 
899 010422 104401 020614 TYPE, | ADASH ; TYPE A DASH 
900 010426 017746 170766 MOV aDIR,-(SP) ;GET INPUT DATA AGAIN 
901 010432 104406 TYPBN TYPE THE BINARY VALUE 
902 010434 104401 020620 TYPE, TCRLF i; TYPE A CR=LF 
bt 010440 000753 BR 1$ 
905 010442 015 012 WAITO: .BYTE 15,12 
906 010444 040527 052111 047111 ASCII \WAITING FOR OPERATOR TO ACTIVIATE MNCDI (D/1)\ 


907 010521 040 042524 052123 -ASCII \ TEST MODULE BUTTON\ 
010526 046440 042117 046125 
010534 Bee! 92 052502 052124 


010542 04 
908 010544 015 012. 000 BYTE 15,12.0 
909 010550 -EVEN 
910 ; SUBROUTINE TO DELAY A SHORT AMOUNT OF TIME 
911 010550 012737 000012 010566 BELAYO: MOV #10.,10$ ;LOAD DELAY COUNTER 
912 010556 005337 010566 1$: DEC 10$ DELAY 
913 010562 100375 BPL 1$ ;_A WHILE 
914 010564 000207 RTS PC sEXIT 
915 010566 000000 10$: 0 
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CVMNBB P11 08-AUG-79 10:38 TY INPUT ROUTINE 
nay -SBTTL TTY INPUT ROUTINE 
( 





(2) Ff ARR RAERARREEAEEEREREREERERARKARAERERAERARARERARRERRRERARERRAREEAA ES 
(1) .ENABL LSB 

(1) 010570 000000 $TKCNT: .WORD 0 7 NUMBER OF ITEMS IN QUEUE 

(1) 010572 000000 $TKQIN: .WORD 0 :: INPUT POINTER 

(1) 010574 000000 $TKQOUT: .WORD 0 ::OUTPUT POINTER 

(1) 010576 000040 $TKOSRT: .BLKB 32. ::TTY KEYBOARD QUEUE 

a 010636 $TKQEND=. 

( 

(1) -*TK INITIALIZE ROUTINE 

(1) :*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

oe :*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
(1) » 

(1) = *CALL: 

(1) aia JSR PC, $STKINT 

CD ye RE TURN 

(1) . 

(1) 010636 005037 010570 $TKINT: CLR STKCNT :CLEAR COUNT OF ITEMS IN QUEUE 
(1) 010642 012737 010576 010572 MOV #STKOSRT ,STKQIN «MOVE THE STARTING ADDRESS OF THE 
(1) 010650 013737 010572 010574 MOV $TKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
(1) 010656 012737 010706 000060 MOV #STKSRV, AATKVEC : INITIALIZE THE KEYBOARD VECTOR 
(1) 010664 012727 000200 000062 MOV #200, a#TKVEC+2 ::'BR' LEVEL 4 

(1) 010672 005777 170250 TST a$TkB ZCLEAR DONE FLAG 

(1) 010676 012777 000100 170240 MOV #100, a$TKS ENABLE TTY KEYBOARD INTERRUPT 
() 010704 000207 RTS PC RETURN TO CALLER 

(1) 7*TK SERVICE ROUTINE 
(1) :*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT | 
(1) >*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

(1) :*IT IN THE QUEUE. | 
(1) *1F THE CHARACTER IS A ‘'CONTROL-C'' (*C) STKINT IS CALLED AN 

ae >*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C’' RESTART LBDRESS (MTEST1) 
(1) : 

(1) 010706 117746 170234 $TKSRV: MOVB  a$TKB,-(SP) : PICKUP THE CHARACTER 

(1) 010712 042716 177600 BIC #°C177, (SP) ‘STRIP THE JUNK 

(1) 010716 021627 000003 CMP (SP) .# :IS IT A CONTROL C? 

(1) 010722 001007 BNE 1$ * BRANCH IF NO 

(1) 010724 104401 012056 TYPE »SCNTLC i: TYPE A CONTROL=C (*C) 

(1) 010730 004737 010636 JSR PC, $TKINT : INIT THE KEYBOARD 

(1) 010734 005726 TST (SP) + >CLEAN UP STACK 

(1) 010736 000137 002300 JMP MTESTI 7: CONTROL C RESTART 

(1) 010742 021627 000007 1$: CMP (SP) #7 :1S 1T A CONTROL G? 

(1) 010746 001004 BNE $ : :BRANCH IF NO 

(1) 010750 022737 000176 001140 CMP ASWREG, SWR SIS SOFT-SWR SELECTED? 

(1) 010756 001500 BEQ 6$ *GO TO SWR CHANGE 

(1) 010760 2$: 

(1) 010760 022737 000040 01057C CMP #32. ,$TKCNT :1S THE QUEUE FULL? 

(1) 010766 001004 BNE 3$ : * BRANCH IF 

(1) 010770 104401 012052 TYPE , SBELL : RING THE ly 8 BELL 

(1) 010774 005726 TST (SP) + :CLEAN CHARACTER OF F OF STACK 

(1) 010776 000451 BR 5$ xIT 

(1) 011000 021627 (00023 3$: CMP (SP) 423 iis IT A CONTROL=S? 

(1) 011006 001021 BNE 32$ ANCH IF NO 

(1) 011006 005077 170132 CLR astKs -=DISABLE TTY KEYBOARD INTERRUPTS 
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170124 
170120 
177600 
000021 
000100 


010570 
000140 


000175 


010572 
010576 


000176 
170004 


170000 
177600 
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TTY INPUT ROUTINE 


; CLEAN CHAR OFF STACK 
:iWAl! FOR A CHAR 
;LOOP UNTIL ITS THERE 


wh 
— 
wr 


MAKE 

ei J A Rte 

; FREENABLE TTY KEYBOARD INTERRUPTS 
RETURN 

£3 COUNT UPPER (ASE? 


CH IF 
HHS ITA SPECTAL CHAR? 
CH_IF YE 


S 
MAKE IT UPPER CASE 
* AND PUT IT IN QUEUE 
sUPDATE THE POINTER 
$360 a = THE END? 


IF NO 
;:RESET THE POINTER 
URN 


a4 
(sp) oi aS TKQIN 
ag -ASTKQEND 
#$TKOQSRT ,SIKQIN 


DRO UUISIISISISI II IISISIIISIUISISIOISIISIIOISIIOIOIOIIDIDIUIIOIDIO IOSD IOI IOI IDI 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE hag HANDLER, 
>*SERVICE THE TEST FOR CHANGE 
7 *CALL hg OPERATING IN TTY eres: @. DE. 

MP S iS THE ey SWR SELECTED 


AND WILL 
N SOFTWARE SWITCH REGISTER TRAP 


Hes EXIT 


71S IT A CONTROL~G? 
SHI NOT, PUT IT IN THE TTY QUEUE 
SSAND EXIT 


IOUS IOSD ISIC IIUIUIDIOIUO IDO UD UE tntt 

*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 

*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 

means BEING TYPED, AND THE ine ae SWITCH REGISTER BEING SELECTED. 
CMPB $AUTOB 41 WE ae ty IN AUTO-MODE ? 


CLEAR CONTROL~G OFF STACK 

: FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
7SET INTERRUPT MODE INDICATOR 


sECHO THE CONTROL-G (“*G) 
: CURRENT FOR TYPEOUT 
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117746 
042716 


021627 


167676 
177600 


000003 
012056 
000006 


001135 


000100 
002300 
000025 
012063 
000006 


000015 
009004 
000002 
000006 
001165 
001135 
000100 


014472 
000060 


000067 


000060 
000002 


000002 
177776 
001164 
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TTY INPUT RCUTINE 
BPL 7$ 


MOVB  a$TKB,-(SP) 
BIC #*0177, (SP) 


CMP -— 


BNE 
TYPE -SCNTLC 
ADD #6,SP 
CMPB SINTAG. 41 
BNE 8$ 
MOV #100, a$TKS 
JMP MTESTI 

9$: CMP (SP) 425 
BNE 10$ 


TYPE »SCNTLU 
208: ADD #6, SP 


BR 19$ 
10% CMP (SP) ,415 
BNE 16$ 
TST 4 (SP) 
BEQ 11$ 
MOV 2(SP) ,aSwWR 
11$: ADD #6,SP 
14$: TYPE ,SCRLF 
CMPB SINTAG,41 
BNE 1 
MOV #100, a$TKS 
5$: RT] 
16$: JSR PC, STYPEC 
CMP (SP) ,460 
BLT 18 
CMP (SP) ,467 
RGT 18$ 
BIC #60, (SP) + 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2( 


SP) 
BIS =2(SP), (SP) 
BR 7$ 
188: TYPE . $QUES 
BR 20$ 
-DSABL LSB 


VERA REE RRRRR RR RRRRRR RR RRR RRR RR RRR RRR RR RRR RRR RRR RRR RR SE SS 


S*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


s*CALL: : 
>a RDCHR 


sr1F NOT TRY AGAIN 


73PICK UP CHA 
3eMAKE IT SOB IT ASCII 


3:18 IT A CONTROL=C? 
; BRANCH IF NOT 
si YES. ECHO CONTROL=C (*C) 
CLEAN UP STACK 
+ = REENABLE TTY KEYS30ARD INTERRUPTS? 
; BRANCH IF NO 
; ALLOW TTY KEYBOARD INTERRUPTS 
33 CONTROL=C RESTART 


iTS IT A CONTROL =U? 
BRANCH IF NOT 
SIYES, ECHO CONTROL=U (*U) 


3 1GNORE PREVIOUS INPUT 
77LET'S TRY IT AGAIN 


21S IT a yy 


3 sRE-ENABLE tay KBD. INTERRUPTS? 
7 RE-ENABLE TTY KAD INTERRUPTS 


+ BRANCH IF YES 


CH IF YES 
:zSTRIP-OFF ASCII 
se3$ eg ie "a CHAR 


BRANCH 
:2NO, SHIFT PRESENT 
ze CHAR OVER TO MAKE 


OOM FOR 
SC KEEP COUNT OF CHAR 
ZiSET IN NEW CHAR 
3iGET THE NEXT ONE 
si TYPE ?<CR><LF> 
77 SIMULATE CONTROL-U 





32GET A CHARACTER FROM THE QUEUE 









32 


LLL LO PPP CLO LO OO LO LPL LO Oe OO hm, hm il, 
kk ek kk ak a a ss a a a a a ss Sh sa st sh a ot tS os as a St fh) BS a 2 SS SS PYNINID OP OP?  S S s 


RF RRR REAR AA FA FAA AA AFF A AAA OO 
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P11 08=-AUG-79 10:38 TTY JNPUT ROUTINE 

) :* RETURN HERE 7; CHARACTER IS ON THE STACK 

) * ;7WITH PARITY BIT STRIPPED OFF 
) ; 

) 

) 011466 011646 SRDCHR: MOV (SP) ,-(SP) og DOWN THE PC AND 

) 011470 016666 000006 000002 MOV 4(SP),2(SP) ; THE PS 

» 011476 005066 000004 CLR 4 (SP) GET READY FOR A CHARACTER 

) 011502 005046 CLR -(SP) : BUT NEW PS ON STACK 

») 011506 012746 011512 MOV #64$,-(SP) : PUT NEW PC ON STACK 

) 011510 000002 RT] ;7;POP NEW PC AND PS 

») 011512 64$: 

») 011512 005737 010570 1$: TST $TKCNT ZZWAIT ON A CHARACTER 

) 011516 001775 BEQ 1$ 

) 011520 005337 010570 DEC STKCNT ZDECREMENT THE COUNTER 

» 011526 117766 177044 000004 MOVB a$TKQOUT ,4(SP) FIGET ONE CHARACTER 

) 011532 005237 010574 INC $TKQOUT ;UPDATE THE POINTER 

») 011536 023727 010574 010636 CMP $TKOOUT. ASTKQEND 3 2D1D IT GO OFF OF THE END? 

») 011544 001003 BNE 2$ CH IF NO 

») 011546 012737 010576 010574 MOV #$TKQSRT, $TKQOUT + ;RESET THE POINTER 

») 011554 0060002 23: RT] : ;RETURN 

) FF RAR AAAAERARAAAARERAAEAERAAARRARAERARRARARAARRRARARARAAAHERAERERE EES 
) s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

) :*CALL: 

) s* RDLIN ; INPUT A STRING FROM THE TTY 
) ;* RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7” 3, TERMINATOR WILL BE A BYTE OF ALL O'S 
» 011556 010346 $RDLIN: MOV R3,-(SP) 22 SAV VE R3 

>» 011560 005046 CLR -(SP) CLEAR THE RUBOUT KEY 

») 011562 012703 012012 1$: MOV #$TTYIN,R3 GET ADDRESS 

») 011566 022703 012052 2s: CMP M$TTYIN¢32.,R3 ;;BUFFER FULL? 

) 011572 101456 BLOS 4$ :¢BR IF YES 

) 011574 104411 RDCHR 3GO READ ONE CHARACTER FROM THE TTY 
) 011576 112613 MOVB (SP)+,(R3) SIGET CHARACTER 

) 011600 122713 000177 10$: CMPB #177, (R3) 21S IT A RUBOUT 

) 011604 001022 BNE 5$ IF NO 

» 011606 005716 ; TST (SP) i21S THIS THE FIRST RUBOUT? 

») 011610 001007 BNE 6$ :;BR IF NO 

») 011612 112737 000134 012010 MOVB #'\ 9S +S TYPE A BACK SLASH 

») 011620 104401 012010 TYPE 2 

) 011624 012716 177777 MOV #-1, (SP) :7 SET THE RUBOUT KEY 

») 011630 005303 6$: DEC R3 7 ;3BACKUP BY ONE 

) 011632 020327 012012 CMP R3,A$STTYIN AP gs EMPTY? 

) 011636 103434 BLO 4 :BR IF YES 

» 011640 111337 012010 MOVB (R3),9% 2 SETUP TO TYPEOUT THE DELETED CHAR, 
») 011644 104401 012010 TYPE .9$ 3:GO 1YPE 

» 011650 000746 BR 2s her READ ANOTHER CHAR. 

») 011652 005716 S$: TST (SP) RUBOUT KEY SET? 

) 011654 001406 BEQ 7$ ::BR_IF NO 

) 011656 112737 000134 012010 MOVB a'\ ,9$ 7 TYPE A BACK SLASH 

) 011664 104401 012010 TYPE a>) 

») 011670 005016 CLR (SP) 7; CLEAR THE RUBOUT KEY 

») 011672 122713 000025 fs: CMPB #25,(R3) 77 1S CHARACTER A CTRL U? 

) 011676 001003 BME 8$ :;BR IF NO 

» 011700 104401 012063 TYPE ~SCNTLU 77 TYPE A CONTROL ‘U" 

) 011704 000726 BR a ::;GO START OVER 
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CVMNBB.P11 = OB-AUG-75 10:38 TTy INPUT ROUTINE SEQ 0046 | Cy 
(1) 011706 122713 900022 R$: CMPB #22, (R3) ii1S CHARACTER A ‘'R'"? a 
(1) 011712 001011 BNE 3$ “BRANCH IF NO 
(1) 011716 105013 CLRB = (R’3) i: CLEAR THE CHARACTER 
(1) 011716 104401 001165 TYPE /$SCRLF TYPE A ''CR'' & LF 
(1) 011722 166401 012012 TYPE $TTYIN *: TYPE THE INPUT STRING 
(1) 011726 000717 BR 2$ *:GO PICKUP ANOTHER CHACTER 
(1) 011730 104401 001164 4$: TYPE . $QUES 7: TYPE A '?° 
(1) 011736 000712 BR i$ [ZCLEAR THE BUFFER AND LOOP 
(1) 011736 111337 012010 8S: MOVB _—(R3),9$ *=ECHO THE CHARACTER 
(1) 011742 104401 012010 TYPE 9 
(1) 011746 122723 000015 CMPB «#15, (R3)+ ;CHECK FOR RETURN 
(1) 011752 001305 BNE 2$ LOOP IF NOT RETURN 
(1) 011756 105063 177777 CLRB = - 1 (R3) : CLEAR RETURN (THE 15) 

(1) 011760 104401 001166 TYPE ,$LF [TYPE A LINE FEED 

(1) 011764 005726 TST (SP)+ *=CLEAN RUBOUT KEY FROM THE STACK 

(1) 011766 012603 MOV (SP)+,R3 7 :RESTORE R3 

(1) 011770 011646 MOV (SP) ,- (SP) ‘ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 011772 016666 000004 000002 MOV 4(SP),2(SP) *: FIRST ASCII CHARACTER ON IT 

(1) 012000 012766 012012 000004 MOV #STTYIN,4(SP) 

(1) 012006 000002 RT] : :RETURN 

(1) 012010 000 9$: \RYTE 0 i? STORAGE | FOR ASCII CHAR. TO TYPE 

(1) 012011 000 "BYTE 0 * TERMINA 

(1) 012012 000040 $TTYIN: .BLKB 32. RESERVE '$. BYTES FOR TTY INPUT 

(1) 012052 177607 000377 $BELL:  “ASCIZ <207><377><377> =:CODE FOR BELL 

(1) 012056 041536 005015 000 $CNTLC: .ASCIZ /*C/<15><12> £2 CONT ROL ‘'C"" 

(1) 012063 136 006525 000012 $CNTLU: .ASCIZ /*U/<15><12> CONTROL ‘U"' 

(1) 012070 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> SCONTROL ‘'G'’ 

(1) 012075 015 051412 051127 $MSWR: “ASCIZ <15><125/SWR = /° 

(1) 012102 036440 000040 

(1) 012106 020040 042516 020127 $MNEW: .ASCIZ / NEW = / 

(1) 012114 020075 000 

1) 012120 EVEN 

919 “SBTTL SCOPE HANDLER ROUTINE 

( 

(2) DERE EERE EERE EEE ARERR EERE EEE EERE EERE ERE ERE EE 

(1) >*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

(1) :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) ‘*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

(1) S*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) + *#SW14=1 LOOP ON TEST 

(1) t*SW11=1 INHIBIT ITERATIONS 

(1) + *®SWO9=1 LOOP ON ERROR 

(1) + ®SWOB=1 LOOP ON TEST IN SWR<7:0> 

1) = *CALL 

CD ie SCOPE >: SCOPE=10T 

(1) 012120 $SCOPE : : 

(1) 012120 104410 CKSWR ::TEST FOR CHANGE IN SOFT=SwR 

(2) 012122 004737 003346 JSR PC, CTRLCG 

(1) 012126 032777 040000 167004 1$: BIT #1114, aSWR :LOOP ON PRESENT TEST? 

(1) 012134 001114 BNE SOVER “YES IF SW14=1 

(1) ;AMAMASTART OF CODE FOR THE XOR TESTERMMMeH 

(1) 012136 000416 $XTSTR: BR 6$ ::1F RUNNING ON THE “XOR!* TESTER CHANGE 
(1) “THIS INSTRUCTION TO A ‘NOP’' (NOP=240) 
(1) 012160 013746 000006 MOV Q#ERRVEC,-<(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 0121446 012737 012164 000004 MOV #5$, a#ERRVEC “SET FOR TIMEOUT 
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08-AUG-79 10:38 SCOPE HANDLER ROUTINE SEQ 0047 
(1) 012152 005737 177060 TST a4177060 TIME OUT ON XOR? 
(1) 012156 012637 000004 MOV (SP) +, @#ERRVEC {RESTORE THE oe VECTOR 
(1) 012162 000463 BR $SVLAD :GO TO THE NEXT TEST 
(1) 012164 022626 5$: CMP (SP)+, (SP) + ;CLEAR THE STACK AFTER A TIME OUT 
(1) 012166 012637 000004 MOV (SP) +, @#ERRVEC ; URESTORE THE ERROR VECTOR 
(1) 012172 000423 BR 7$ LOOP ON THE PRESENT TEST 
(1) 012174 6$: ;###AAEND OF CODE FOR THE XOR’ TESTERAMAMA 
(1) 012174 032777 000400 166736 BIT #B1T08,aSwR : LOOP ON SPEC. TEST? 
(1) 012202 001404 BEQ 2$ IF NO 
(1) 0122046 127737 166730 001102 CMPB @SwWR ,STSTNM > Z0N THE RIGHT TEST? SWR<7:0> 
(1) 012212 001465 BEQ SOVER ;;BR IF YES 
(1) 012214 105737 001103 2$: TSTB SERFLG 77HAS AN ERROR OCCURRED? 
(1) 012220 001421 BEQ 3$ 2 ¢BR IF NO 
(1) 012222 123737 001115 001103 CMPB SERMAX, SERFLG 73MAX. ERRORS FOR THIS TEST OC CURRED? 
(1) 012230 101015 BH] 3$ ;7BR IF NO 
(1) 012232 032777 001000 166700 BIT #B1T09,aSWR ; :LOOP ON ERROR? 
(1) 012240 001404 BEQ 4 ;BR_IF NO 
(1) 012242 013737 001110 001106 7$: MOV SLPERR,$LPADR SISET LOOP ADDRESS TO LAST SCOPE 
(1) 012250 000446 BR SOVER 
(1) 012252 105037 001103 4$: CLRB SERFLG ;ZERO THE ERROR FLAG 
(1) 012256 005037 001160 CLR STIMES ;CLEAR THE NUMBER OF 3s an TO MAKE 
(1) (012262 000415 BR 1$ TESCAPE TO THE NEXT TES 
(1) 012264 032777 004000 166646 3$: BIT #B1T11,aSWR ; INHIBIT ITERATIONS? 
(1) 012272 001011 BNE 1$ BR IF YES 
(1) 012274 005737 001176 TST $PASS iiF FIRST PASS OF PROGRAM 
(1) 012300 14 BEQ 1$ INHIBIT ITERATIONS 
(1) 012302 005237 001104. INC $ICNT + INCREMENT ITERATION COUNT 
(1) 012306 023737 001160 001104 CMP STIMES,SICNT ;CHECK THE NUMBER OF ITERATIONS MADE 
(1) 012314 . 002024 BGE $OVER . “TBR IF MORE ITERATION REQUIRED 
(1) 012316 012737 000001 001104 1$: MOV #1,$1CNT ;:REINITIALIZE THE ITERATION COUNTER 
(1) 012324 013737 012402 001160 MOV SMXCNT,STIMES SET NUMBER OF ITERATIONS TO DO 
(1) 012332 105237 001102 $SVLAD: INCB STSTNM >: COUNT TEST NUMBERS 
(1) 012336 113737 001102 001174 MOVB STSTNM,STESTIN ;;SET TEST NUMBER IN APT MAILBOX 
(1) 012344 011637 001106 MOV (SP) ,SLPADR 3;SAVE SCOPE LOOP ADDRESS 
(1) 012350 011637 001110 MOV (SP) ,SLPERR 7; SAVE ERROR LOOP ADDRESS 
(1) 012354 005037 001162 CLR $SESCAPE 7 CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 012360 112737 1 001115 MOVB #1, SERMAX ZZONLY ALLOW ONE(1) ERROR ON NEXT VES? 
(1) 12366 013777 001102 166546 S$OVER: MOV $TSTNM, @DISPLAY : DISPLAY TEST NUMBER 
(1) 012374 013716 001106 MOV $LPADR, (SP) UDGE RETURN ADDRESS 
(1) 012400 000002 RTI ‘FIXES PS 
(1) 012402 003720 $MXCNT: 2000. 72MAX. NUMBER OF ITERATIONS 


ee OQ, eSV3w_ 
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921 
927 _ SUBROUTINE TO DETERMINE UNIT # 
928 012404 012737 000000 001532 WHICHU: MOV #0, UNITAD PRIME THE VALUE 
929 012412 013737 001460 012434 MOV —s MASKNM,11$ LOAD VALUE 
930 012420 006237 012434 10$: ASR 118 ‘SHIFT 
931 012424 0014 BEQ 128 BR WHEN DONE 
932 012426 005237 001532 INC: UNI TBD [UPDATE BIT 
933 012432 000772 BR 10$ 
934 012434 11$: 0 
935 012436 000207 12: RTS PC EXIT 
936 .SBTTL ERROR HANDLER ROUTINE 
(1) 
(2) CTA AAR RER AEE KEEKAREERER AREER RAEREREEAERERERRER EERE HERS 
(1) =*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
1) :*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
1) :*AND GO TO SERRTYP ON ERROR 
a) :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
1) : #Si/15=1 HALT ON ERROR 
(1) S*#SW13=1 INHIBIT ERROR TYPEOUTS 
a) : *SWO9=1 LOOP ON ERROR 
(1) 7*CALL 
1) te ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 
(1) 012440 SERROR : 
(1) 012440 104410 CkS TEST FOR CHANGE IN SOFT-SWR 
(3) 012442 737 003346 JSR PC, CTRLCG TEST FOR CTRL C/G 
(3) 012446 053737 001460 001530 BIS MASKNM, BADUNT SINCIDATE BAD BIT 
(3) 012454 004737 012404 JSR PC, WHI CHU [DETERMINE UNIT # 
(1) 012460 105237 001103 7$: INCB —-SERFLG SET THE ERROR FLAG 
(1) 012464 001775 BEQ 7$ SIDON’T LET THE FLAG GO TO ZERO 
(1) 012466 013777 001102 166446 MoV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 012474 005237 001112 INC SERTTL ZINC THE ERROR COUNT 
(1) 012500 011637 001116 MOV (SP) , SERRPC :GET ADDRESS OF ERROR INSTRUCTION 
(1) 012504 162737 2 001116 SUB ss #2, SERRPC 
(1) 012512 117737 166400 001114 MOVB  a$ERRPC,$ITEMB :z$TRIP AND SAVE, THE ERROR ITEM CODE 
(1) 012520 032777 020000 166412 BIT #B1T13,aSWR :SKIP TYPEOUT IF SET 
(1) 012526 001004 BNE 208 SKIP TYPEOUTS 
(1) 012530 004737 012642 JSR PC, SERRTYP :G0 TO USER ERROR ROUTINE 
(1) 012534 104401 001165 TYPE —_, $CRLF 
(1) 012540 208: 
(1) 012540 122737 000001 001210 CMPB = #APTENV,SENV —; ; RUNNING IN APT MODE 
(1) 012546 001007 BNE $ NO, SKIP APT ERROR REPORT 
(1) 012550 113737 001114 012562 MOVB — SITEMB. 218 ise ITEM NUMBER AS ERROR NUMBER 
(1) 012556 004737 013506 JSR PC, SATY REPORT FATAL ERROR TO APT 
(1) 012562 218: BYTE 0 
(1) 012563 “BYTE 0 
(1) 012564 77 228: BR 22$ {ABT ERROR LOOP 
(1) 012566 005777 166346 2$: TST aSWR ; HALT ON ERROR 
(1) 012572 2 , BPL 3$ :SKIP IF CONTINUE 
(1) 012574 HALT HALT ON ERROR! 
(1) 012576 10441 CKSWR [TEST FOR CHANGE IN SOFT-SWR 
(1) 012600 032777 001000 166332 38: BIT #81109, aSWR SILOOP ON ERROR SWITCH SET? 
(1) 012606 001402 : BEO 4$ “BR IF NO 
(1) 012610 013716 001110 MOV $LPERR, (SP) FUDGE RETURN FOR LOOPING 
(1) 012614 005737 001162 A$: TST $ESCAPE ZICHECK FOR AN ESCAPE ADDRESS 
(1) 012620 001402 BEQ es SIBR IF NONE 
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08-AUG-79 10:38 ERROR HANDLER ROUTINE SEQ 0049 CV 
3 Ri sess 013716: 001162 $$ MOV SESCAPE, (SP) ; FUDGE RETURN ADDRESS FOR ESCAPE 
( : 
(1) 012626 022737 010234 000042 CMP #SENDAD , 2442 ZzACT=<-11 AUTO-ACCEPT? 
(1) 012634 001001 BNE 6$ ;;BRANCH IF NO 
(1) 012636 000000 a HALT sss 
(1) 012640 ; 6$: 
(1) 012640 000002 RTI 3; ;RETURN 
Hf of .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(9) DEERE RARER EERE EEE EERE ERE REE ERE EERE EERE EE eK 
(1) 7*THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 
(1) :*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ ($ERRTB), 
a :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
( 
(1) 0126462 . SERRTYP: 
(1) 012642 104401 001165 TYPE »$CRLF 32" 'CARRIAGE RETURN'' & ‘LINE FEED’ 
(1) 012646 010046 MOV RO,-(SP) zz SAVE RO 
(1) 012650 005000 CLR RO 3zPICKUP THE ITEM INDEX 
(1) 012652 153700 001114 BISB a4$]TEMB,RO 
(1) 012656 001004 BNE 1$ 37 1F ITEM NUMBER IS ZERO, JUST 
(1) 77 TYPE THE PC OF THE ERROR 
(2) 012660 013746 001116 MOV SERRPC ,-(SP) 77 SAVE SERRPC FOR TYPEOUT 
(2) 7zERROR ADDRESS 
(2) 012664 104402 : TYPOC 7260 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 012666 000445 BR 10$ 7GET OUT 
(1) 012670 005300 1$: DEC RO : :ADJUST THE INDEX SO THAT IT WILL 
(1) 012672 006300 ASL RO WORK FOR THE ERROR TABLE 
(1) 012674 006300 ASL RO 
(1) 012676 006300 ; ASL RO 
(1) 012700 062700 001254 ADD #SERRTB,RO 72 FORM TABLE POINTER 
(1) 012704 012037 012714 MOV (RO) +,2$ see T ERROR wy POINTER 
(1) 012710 001404 BEQ 3$ ZSKIP TYPEOUT IF NO POINTER 
(1) 012712 104401 TYPE : TYPE THE “ERROR MESSAGE" 
(1) 012714 000000 2$: -WORD 0 32° ERROR MESSAGE"' POINTER goes HERE 
(1) 012716 104401 00601165 TYPE ,$CRLF SIR meg! gs 3 RETURN’’ &@ ‘LINE FEED’ 
(1) 012722 012037 012732 3$: MOV (RO) +,4$ ICKUP ‘DATA HEADER’’ POINTER 
(1) 012726 001404 BEQ 5$ IP TYPEOUT IF 0 
(1) 012730 104401 TYPE 77 TYPE THE "DATA HEADER’ * 
(1) 012732 000000 4$: -WORD .0 ::' DATA HEADER’' POINTER GOES HERE 
(1) 012734 104401 001165 TYPE ~$SCRLF 72° CARRIAGE RETURN'’ & ‘LINE FEED’ 
(1) 012740 010146 5$: MOV R1,-(SP) 2 SAVE R R1 
(1) 012742 012001 MOV (RO)+,R1 :PICKUP ‘DATA TABLE’ POINTER 
(1) 012744 001415 BEQ 9S + :BR IF NO DATA TO BE TYPED 
(1) 012746 012000 MOV (RO)+,RO : PICKUP ‘DATA FORMAT’ POINTER 
(1) 012750 105720 6$: TSTB (RO) + 72’ OCTAL'’ OR *DECIMAL"' 
(1) 012752 001003 BNE 7$ :7BR IF DECIMAL 
(2) 012754 013146 MOV a(R1)+,-(SP> : SAVE @(R1)+ FOR TYPEOUT 
(2) 012756 104402 TYPOC 72:GO TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 012760 000402 BR 8$ 
(1) 012762 7$: 
(2) 012762 013146 MOV a@(R1)+,-(SP) ; + SAVE a(R1)+ FOR TYPEOUT 
(2) 012764 104405 TYPDS GO TYPE=-DECIMAL ASCII "™ SIGN 
(1) 012766 005711 8$: TST (R1) i318 THERE ANOTHER NUMBER 
(1) 012770 001403 BEQ 9$ ;BR IF NO 
(1) 012772 104401 013012 : TYPE ,11$ +: TYPE TWO(2) SPACES 
(1) 0612776 000764 BR 6$ 37 LOOP 
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012601 9$: (SP)+,R1 RESTORE R1 
10$: (SP)+,RO SIREST ORE RO 
001165 ees: I tga RETURN'' & “LINE FEED’ 


00020 RTS 
013012 020040 000 11$: ° .# 3: TWO(2) SPACES 
013016 .EVEN 
-SBTTL BINARY TO OCTAL ASCII) AND TYPE ‘ 


| J pabenebeehnnnennnenehetennnedenedabiaebasensunnesesenennnenees 

SS THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT. 
:*$TYPOS-=-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:*CALL: 
; MOV NUM ,~(SP) : NUMBER TO BE TYPED 
3; ;CALL FOR TYPEOUT 
:zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
> 7M=1 OR 0 
321=TYPE LEADING ZEROS 
:;0=SUPPRESS LEADING ZEROS 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
z*$TYPOS OR $TYPOC 

i*CALL: 

i* MOV NUM ,-(SP) Sean TO BE TYPED 

- TYPON ;CALL FOR TYPEOUT 


$1 YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
_* 

:* MOV NUM, - (SP) : NUMBER TO BE TYPED 
:* *:CALL FOR TYPEOUT 


013016 6 $TYPOS: a(SP) ,-(SP) : ¢PICKUP THE MODE 
000001 013241 MO 1(SP) ,SOF ILL 
MOVB (SP) +, $OMODE +1 0 
: TADJUST RETURN ADDRESS 


BR $TYPON 
000001 013241 $TYPOC: SET THE ZERO i Beh 


000006 013243 MO 6 ;¢ SET FOR S1X(6) 
000005 013240 $TYPON: ts WV me ITERATION COUNT 


e- VE R RS 
013243 SOMODE +1, R4 GET THE NUMBER OF DIGITS.TO TYPE 
000006 i. R4 ;; SUBTRACT IT FOR MAX. ALLOWED 
013242 R4 , SOMODE 7 SAVE _IT FOR USE 
013241 Ginter  $OFILL,R4 ~#5GET THE ZERO FILt SWITCH 
000012 12(SP),R5 
R3 LEAR THE 
; UROTATE MSB INTO ‘'C'' 
: DO MSB 
[FORM THIS DIGIT 


ee a a a a a ee a a a et ee wwe ve YY DOr vwvuvvvny 


1 
1 
1 
1 
1 
1 
1 
3 
1 
2 
1 
: 
1 
1 
: 
1 
1 
1 
: 
1 
: 
1 
1 
1 
1 
1 
1 
: 
. 
1 
: 
; 
1 
1 
1 
1 
1 
1 
; 
5 
1 
1 
1 
1 
1 
1 
1 
J 
1 
1 
1 
1 
1 
1 
, 
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CVMNBB P11 08-AUG-79 10:38 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0051 
(1) 013136 006103 3$: ROL R3 GET LSB OF THIS DIGIT 

013140 105337 013242 DECB SOMODE i TYPE THIS DIGIT? 
013144 100016 BPL $ F NO 
013146 042703 177770 BIC #177770,R3 GET RID OF JUNK 
013152 001002 BNE 4$ 3; TEST FOR 0 
013154 005704 TST R4 Se ae aE THIS 0? 
013156 001403 BEQ 5$ : BR IF YES 
013160 005204 4$: INC R4 ;DON'T SUPPRESS ANYMORE 0'S 
013162 052703 000060 BIS #'0,R3 7 IMAKE THIS DIGIT ASCII 
013166 052703 000040 5$: BIS #' ,R3 * IMAKE ASCII IF NOT ALREADY 
013172 110337 013236 MOVB R3,8$ 7¢SAVE FOR TYPING 
013176 104401 013236 TYPE ,8$ 3:GO TYPE THIS DIGIT 
013202 105337 013240 7$: DECB SOCNT ;; COUNT BY 1 
013206 003347 BGT 2$ :/BR IF MORE TO DO 
013210 002402 BLT 6$ ;BR_IF DONE 
013212 005204 INC R4 >; INSURE LAST DIGIT ae T A BLANK 
013214 000744 BR 2$ 3:GO DO THE LAST DIG 
013216 012605 6$: MOV (SP)+,R5 7 RESTORE R5 
013220 012604 MOV (SP)+,R4 ; RESTORE R4 
013222 012603 MOV (SP)+,R3 ste tne R3 
013224 016666 000002 000004 MOV 2(SP),4(SP) SET THE STACK FOR RETURNING 
013232 012616 MOV (SP) +, (SP) 
013234 000002 RTI 7 sRETURN 
013236 000 8$: -BYTE 0 :sSTORAGE FOR ASCII DIGIT 
013237 000 -BYTE 0 : ¢ TERMINATOR FOR TYPE ROUTINE 
013240 000 $OCNT: .BYTE 0 :OCTAL DIGIT COUNTER 
013241 000 SOFILL: .BYTE 0 3 ZERO FILL SWITCH 


013242 000000 SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SOCIO ISIC ROCIO TIO TROT TR A SISASAIA SSSI IIS IIIS ISIN AIAN 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT \. 
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


7 *CALL: 
38 MOV NUM ,-(SP) 7;PUT THE BINARY NUMBER ON THE STACK 
i* TYPDS ::GO TO THE ROUTINE 
013244 $TYPDS: 
013244 010046 MOV RO,-(SP) ;zPUSH RO ON STACK 
013246 010146 MOV R1,-(SP) 77PUSH R1 ON STACK 
013250 010246 MOV R2,-(SP) 7zPUSH R2 ON STACK 
013252 010346 MOV R3,-(SP) 7zPUSH R3 ON STACK 
013254 010546 MOV R5,-(SP) ie # RS ON STACK 
013256 012746 020200 MOV #20200,-(SP) 7SET BLANK SWITCH AND SIGN 
013262 016605 000020 MOV 20(SP),R5 :iGcT THE INPUT NUMBER 
013266 100004 BPL 1$ BR IF INPUT IS POS. 
013270 005405 NEG R5 * UMAKE THE BINARY NUMBER POS. 
013272 112766 000055 000001 MOVB #'=,1(SP) 7zMAKE THE ASCII NUMBER NEG. 
013300 005000 1$: CLR RO oy Soy THE CONSTANTS INDEX 
013302 012703 013460 MOV #$DBLK ,R3 72SETUP THE OUTPUT POINTER 
013306 112723 000040 MOVB a" , (R3)+ 73 SET THE FIRST CHARACTER TO A BLANK 
013312 005002 2$: CLR R2 ;CLEAR THE BCD NUMBER 


i i i i i i i it. © i i i i i i td 


ORR RA RAR ARARARRARRAARRAAAR RAR ARARAR OR AAA AAAARAAAAAAAARAAAARPAAAARA 
4 SS = SS WWIW WWW 9 2 Ss 9 SS 2 Ss Ss 2s a PN BWW Ss 2 2 3 2 Sh 2 SS Sh Sh BS 2 3 Sh SS Sh Sh 


013314 016001 013450 MOV $DTBL(RO) ,R1 ::GET THE CONSTANT 
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(1) 013320 160105 
(1) 013322 002402 
(1) 013324 005202 
(1) 013326 000774 
(1) 013330 060105 
(1) 013332 005702 
(1) 013334 00100 
(1) 013336 105716 
(1) 013340 10040 
(1) 013342 106316 
(1) 013344 103003 
(1) 013346 116663 
(1) 013354 052702 
(1) 013360 052702 
(1) 013364 110223 
(1) 013366 005720 
(1) 013370 020027 
(1) 013374 002746 
(1) 013376 003002 
(1) 013400 010502 
(1) 013402 764 
(1) 013404 105726 
(1) 013406 100003 
(1) 013410 116663 
(1) 013416 105013 
(3) 013420 012605 
(3) 013422 012603 
(3) 013424 012602 
(3) 013426 012601 
(3) 013430 012600 
(1) 013432 104401 
(1) 013436 01 
(1) 013444 012616 
(1) 013446 
(1) 013450 023420 
(1) 013452 001750 
(1) 013454 000144 
(1) 013456 000012 
(1) 013460 
940 
(1) 
(2) 
(1) 013470 112737 
(1) 013476 112737 
(1) 013204 000403 
(1) 013506 112737 
(1) 013514 
(3) 013514 010046 
(3) 013516 010146 
(1) 013520 105737 
(1) 013524 001450 
(1) 013526 122737 
(1) 013534 001031 
(1) 013536 132737 
(1) 013544 001425 
(1) 013546 017600 


177777 


013460 
000002 


000001 
000001 


000001 


013732 
000001 
000100 
000004 


MACY11 gong 


177777 


177776 


000004 


013734 
013732 


013734 


001210 
001211 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 


O$: 


$DTBL: 


$DBLK: 


SUB 
BLT 
INC 


-BLKW 


08-AUG-79 


R1,R5 
4$ 

Re 

3$ 
R1,R5 
R2 

5$ 
(SP) 
7$ 
(SP) 
6$ 
1(SP) ,=1(R3) 
#'0,R2 


eo” Ke 
R2, (R3)+ 
(RO) + 
RO,410 
2s 


8$ 
R5,R2 
6$ 
(SP) + 


9$ 
-1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 

(SP) +,RO 
K 


e $DBL 
2 (SP) ,4(SP) 
(SP)+, (SP) 


N oe 
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SEQ 0052 


: 7 FORM THIS BCD DIGIT 
;BR_IF DONE 
7: INCREASE THE BCD DIGIT BY 1 


+ sADD BACK THE CONSTANT 
CHECK _IF BCD DIGIT=0 

: SEAL THROUGH IF .0 

:ST at -* tay LEADING 0'S? 


* CBR IF NO 
tS YES=-SET THE SIGN 
2 ¢MAKE THE BCD DIGIT ASCII 
:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
+ :PUT THIS CHARACTER IN THE OUTPUT BUFFER 
37 JUST INCREMENTING 
::CHECK THE TABLE INDEX 
::GO DO THE NEXT DIGIT 


; E TO ASCII 

M ag yt a THE FIRST NON-ZERO? 

2s YES~=SET THE SIGN FOR TYPING 
;SET THE TERMINATOR 

7:POP STACK INTO R5 

3:POP STACK INTO R3 

7POP STACK INTO R2 

3;:POP STACK INTO R1 

3:POP STACK INTO RO 

7zNOW TYPE THE NUMBER 

7 ADJUST THE STACK 


7ZRETURN TO USER 


4 
-SBTTL APT COMMUNICATIONS ROUTINE 


mite eee eee Se SSS SSSR SASASASEASASEAASESESARASA ASA R RR RS SEER SRS SS | 


$aty1: 
SATY3: 


$SATY4: 
SATYC: 


#1, $FFLG 
#1. $MFLG 
SATYC 

#1,SFFLG 


RO,-(SP) 
R1,~(SP) 
SMFLG 
5$ 


en 


on 


a4 (SP) ,RO 


32TO REPORT FATAL ERROR 
33TO TYPE A MESSAGE 


3zTO ONLY REPORT FATAL ERROR 
: :PUSH RO ON STACK 

7PUSH R1 ON STACK 
; SHOULD TYPE A MESSAGE? 

zI1F NOT: BR 
: SOPERAT ING UNDER APT? 
: SHOULD — MESSAGES? 
:GET MESSAGE ADDR. 


CV 


CVMNB-8 MNCDI 
CVMNBB.P11 


013552 
01 


et ct a ee et ee ee ee ee et ee i ee ee 
A SS SS 3 WIN OS Ss Ss St St SS SS SS SH Sh SS SW 9 SP YS a eS 
eee ee eee eee ee se es ae ee 
— 
PS 


DIAGNOSTIC 


08-AUG-79 10:38 


000002 
001170 
010037 001204 


001204 
001206 
000004 
000002 
177776 
014260 


013734 
001210 
001170 


013732 


MACY11 petty AL 


000004 


001170 


013644 
000004 


001172 
000004 


08-AUG-79 


COMMUNICATIONS ROUTIN 


1-3 TST 


2$: TSTB 


12$: CLRB 


$MFLG: .BYTE 
$LFLG: .BYTE 
SFFLG: BYTE 


EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


#2,4(SP) 
os 


RO, $MSGAD 
(RO) + 


2$ 

SMSGAD ,RO 
RO 

RO, $MSGLGT 
at satthite 


a4 (SP) ,4$ 
#2,4(SP) 
177776, =(SP) 
PC. STYPE 


SFFLG 

12$ 

SENV 

12$ 

$SMSGTYPE 

11$ 

@4 (SP) ,SFATAL 
#2,4(SP) 


(SP)+,R1 
(SP)+,RO 
PC 

0 


0 
0 


5 
10: = B PACE 28-5 


SEQ 0053 


; ;BUMP RETURN ADDR. 
oF NTs wee Fe LAST XMISSION? 


:-PUT ADDR IN M\ILBOX 
73FIND END OF MESSAGE . 


;;SUB START OF MESSAGE 
+ MESSAGE LNGTH adh WORDS 
‘TELL APT TO TAKE MSG. 


;;PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 
: PUSH 199776 ON STACK 
SSCALL TYPE MACRO 


#¢ SHOULD» REPORT FATAL ERROR? 

; NOT: BR 

:FRUNNING Ww APT? 

+ ¢F INISHED LAST MESSAGE? 
NOT: WAIT 


GET ERROR ‘dl 

;BUMP RETURN ADDR. 
73 TELL net TO TAKE ERROR 
3:CLEAR FATAL FLAG 


i, STACK INTO RO 
“4 TURN 

+ :MESSG. FLAG 

77L0OG FLAG 

sZFATAL FLAG 





an 





. 2 
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-SBTTL POWER DOWN AND UP ROUTINES 
DDO EIAUIRIUUSIIISIIUIIIOIISIIUIIOUIUIIOIIISIIIIIIOIUIIDIOIIOIOUINOINIDI IO IODr iit tt 


>POWER DOWN ROUTINE 
0137_-< 012737 014102 000024 $PWRDN: MOV #SILLUP, @#PWRVEC ;;SET FOR FAST UP 


013744 012737 900340 900026 MOV #340, aMPWRVEC+2 ;:PRIO:7 

013752 010046 MOV RO,-(SP) 3=PUSH RO ON STACK 

013754 010146 MOV R1,-(SP) ; PUSH R1 ON STACK 

013756 010246 MOV R2,-(SP) 3=PUSH Re ON STACK 
60 010346 MOV R3,-(SP) 3¢PUSH R3 ON STACK 

013762 010446 MOV R4,-(SP) 3 zPUSH R4 ON STACK 

013764 010546 MOV R5,-(SP) 3 PUSH RS ON STACK 

013766 017746 165146 MOV @SWR, = (SP) : ¢PUSH @SWR ON STACK 

013772 010637 014106 MOV SP, $SAVR6 :SAVE SP 

013776 012737 014010 000024 MOV #SPWRUP , AA PWRVEC > ;SET UP VECTOR 

014004 000000 HAL T 

014006 000776 BR oe 3 HANG UP 


TSAO IOISISISIISIIUIIIIISISIOIOIDISIOIIDIOIDIISIUIDIISISIIOUIDIIIIOUIOIDIUII ORO nite 
;POWER UP ROUTINE 
014010 012737 014102 000024 $PwRUP: MOV MSILLUP, @A#PWRVEC ti Ae FAST DOWN 


ek ok ok need kala ahd hath adh ath ality ciated al bianaion ont ahha at iis a ae 
st ss ss ss SS SI WWW WN WWWW 9 9 9 2S Ss WWW WWW OE 


Bhuewwevewvwvwvwvwevvvevyve ve wVewyeuVevVvvVvevVvnvVvVevVvvevvuvvuvvevevyeyvyevyvvyewvyww 


014016 013706 014106 MOV $SAVR6, SP 32GET 
014022 005037 014106 CLR SSAVR6 7eWAIT LOOP FOR THE TTY 
014026 005237 014105 1$: INC SSAVR6 3sWAIT FOR THE INC 
014032 001375 BNE 1$ ze WORD 
4034 012677 165100 MOV (SP) +, aSWR ::POP STACK INTO @SwWR 
014040 012605 MOV (SP)+,R5 ;:POP STACK INTO R5 
014042 012604 MOV (SP)+,R4 3:POP STACK INTO R4& 
014044 012603 MOV (SP) +,R3 3=POP STACK INTO R3 
014046 012602 MOV (SP)+,R2 3:POP STACK INTO R2 
014050 012601 MOV (SP)+,R1 33POP STACK INTO R1 
014052 012600 MOV (SP)+-RO ;sPOP STACK INTO RO 
014054 012737 013736 000024 MOV #SPWRDN, AAPWRVEC’ :;SET UP THE POWER DOWN VECTOR 
014062 012737 000340 000026 MOV #340, a4PWRVEC+2 ;:PRIO:7 
014070 104401 TYPE ; REPORT THE POWER FAILURE 
014072 014110 SPWRMG: .WORD PWRMSG POWER FAIL MESSAGE POINTER 
014074 012716 MOV (PC) +, (SP) SIRESTART AT BEGIN 
014076 001542 $PWRAD: .WORD BEGIN 7 RESTART ADDRESS 
014100 000002 . RTI 
014102 000000 $SILLUP: HALT 23 THE POWER UP SEQUENCE WAS STARTED 
014104 000776 BR oe 33 BEFORE THE POWER DOWN WAS COMPLETE 
014106 000000 $SSAVR6: 0 ;PUT THE SP HERE 
014110 005015 0425 052123 PWRMSG: .ASCIZ <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> 
014116 051101 044524 043516 
014124 0440 06 051105 
014132 0440 517 
014140 051105 043040 044501 
014146 052514 042522 005015 
014154 000 


945 014156 -EVEN 





aon 
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CVMNBB .P 11 08-AUG-79 10:38 READ AN OCTAL NUMBER FROM THE TTY SEQ 0055 ra 
.SBTTL READ AN OCTAL NUMBER FROM THE TTY A 

(2) FF AAAAAARRAAAAREEERARRERREREARRARRRARERERRARREAEERAARARERAAA TERA S “ 
(1) :*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND A 
(1) :*CHANGE IT TO BINARY. A 
(1) 3*CALL: Al 
(1) :* RDOCT ;7READ AN OCTAL NUMBER Al 
(1) :* RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK Al 
He 3* : HIGH ORDER BITS ARE IN $HIOCT Al 
(1) A 
(1) 014156 011646 $RDOCT: MOV (SP) ,=(SP) ;PROVIDE SPACE FOR THE Al 
(1) 014160 016666 000006 000002 MOV 4(SP),2(SP) * INPUT NUMBER A 
(3) 014166 010046 MOV RO,-(SP) : PUSH RO ON STACK A 
(3) 014170 010146 MOV R1,-(SP) ;PUSH R1 ON STACK ‘A 
(3) 014172 010246 MOV R2,-(SP) += PUSH R2 ON STACK | A 
(1) 014174 104412 1$: RDLIN 3; READ AN ASCIZ LINE iA 
(1) 014176 012600 MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER A 
(1) 200 005001 CLR R1 77 CLEAR LATA WORD A 
(1) 014202 005002 CLR R2 A 
(1) 014204 112046 2s: MOVB (RO) +,-(SP) :zPICKUP THIS CHARACTER A 
(1) 014206 001412 BEQ 3$ zz 1F ZERO GET OUT A 
(1) 014210 006301 ASL R1 ss*d A 
(1) 914212 006102 R0L R2 A 
(1) 014214 006301 ASL R1 s7%4 A 
(1) 014216 006102 ROL R2 A 
(1) 014220 006301 ASL R1 328 A 
(1) 014222 006102 ROL R2 A 
(1) 014224 042716 177770 BIC #*°C7, (SP) 3s zSTRIP THE ASCII JUNK A 
(1) 014230 062601 ADD (SP)+,R1 + sADD IN THIS DIGIT A 
(i) 014232 000764 BR 2$ ; LOOP A 
(1) 014234 005726 3$: TST (SP) + +> CLEAN TERMINATOR FROM STACK A 
(1) 014236 010166 000012 MOV R1,12(SP) > SAVE THE RESULT A 
(1) 014242 010237 014256 MOV R2,$HIOCT A 
(3) 014246 012602 MOV (SP)+,R2 3: POP STACK INTO R2 A 
(3) 014250 012601 MOV (SP)+,R1 :;POP STACK INTO R1 A 
(3) 014252 012600 MOV (SP)+,RO :;POP STACK INTO RO A 
(1) 014254 000002 RT] ; RETURN A 
(1) 014256 000000 $HIOCT: .WORD 0 : HIGH ORDER BITS GO HERE A 
A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

3] 





REAR KAEEAEEREAEEAAREREREERARAEREEAREEEEAEERAEAREREREEERRRREREE EE 


“ #ROUT INE TO TYPE ASCIZ “gy MESSAGE MUST TERMINATE WITH A O BYTE. 
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CVMNBB P11 08-AUG-79 10:38 READ AN OCTAL NUMBER FROM THE TTY SEQ 0056 
949 -Nipetiames THE FIRST 4 LOC. ARE OVERLAYED TO LOWER INTERRPUT LEVEL 
950 THE OVERLAY OCCURS AFTER THE ‘SETUP’ CODE 
951 “SBITL TYPE ROUTINE 
:* THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


(2) 

“> 

(1) 

(1) NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) + NOTED: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
)? 7 *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

{ 7m 

(1) :*CALL: 

(1) :*1) USING A TRAP INSTRUCTION 

(1) - TYPE »ME SADR zzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) :*OR 

(1)  * TYPE 

(1) :* ME SADR 

a i* 

(1) 

(1) 014260 105/37 001157 $TYPE: TSTB $TPFLG 21S THERE A TERMINAL? 

(1) 014264 100002 BPL 1$ ;7BR IF YES 

(1) 014266 000C90 HALT :ZHALT HERE IF NO TERMINAL 

(1) 014270 000430 BR 3$ LEAVE 

(1) 014272 010046 1$: MOV RO,-(SP) 7 SAVE RO 

(1) 014274 017600 000002 MOV @2(SP) ,RO ::GET ADDRESS OF ASCIZ STRING 

(1) 014300 122737 000001 001210 CMPB #APTENV, SENV : ¢ RUNNING IN APT MODE 

(1) 014306 001011 BNE 62$ :NO,GO CHECK FOR APT CONSOLE 

(1) 014310 132737 000100 001211 BITB #APTSPOOL , SENVM ; : SPOOL MESSAGE TO APT . 
(1) 014316 001405 BEQ 62$ 3NO,GO CHECK FOR CONSOLE 

(1) 014320 010037 014330 MOV RO,61$ > SETUP MESSAGE ay ta FOR APT 

(1) 014324 004737 013476 JSR PC, SATY3 2 ¢ SPOOL MESSAGE TO AP 

(1) 14330 000000 61$: . WORD 0 sMESSAGE ADDRESS 

(1) 014332 132737 000040 001211 62$: BITB #APTCSUP,SENVM al CONSOLE SUPPRESSED 

(1) 014340 001003 BNE 60$ YES,SKIP TYPE OUT 

(1) 014342 112046 23: MOVB (RO) +,-(SP) +: PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 014344 001005 BNE 4$ BR IF IT ISN'T THE TERMINATOR 

(1) 014346 005726 TST (SP)+ 771F TERMINATOR POP IT OFF THE STACK 
(1) 014350 012600 60$: MOV (SP) +,RO rzRCSTORE RO 

(1) 014352 062716 000002 3$: ADD #2, (SP) : :ADUUST RETURN PC 

(1) 014356 000002 RTI 7 ;RETURN 

(1) 014360 122716 000011 4$:  CMPB MHT, (SP) 7 BRANCH IF <HT> 

(1) 014364 001430 BEQ 

(1) 366 122716 000200 CMPB CRLF, (SP) BRANCH IF NOT <CRLF> 

(1) 014372 001006 BNE 5$ 

(1) 014374 005726 TST (SP) + ::POP <CR><LF> EQUIV 

(7) 014376 106401 TYPE 37 TYPE A CR AND LF 

(1) 014400 001165 $CRLF 

(1) 014402 105037 014536 CLRB $CHARCNT 7 CLEAR CHARACTER COUNT 

(1) 014406 000755 BR 2$ 7:GET NEXT CHARACTER 

(1) 014410 004737 014472 5$: JSR PC, $TYPEC 4260 TYPE THIS CHARACTER 

(1) 014414 123726 001156 6$: CMPB $FILLC,(SP)+ :1S IT TIME FOR FILLER CHARS. ? 

(1) 014420 007350 BNE 2$ ZI1F NO GO GET NEXT CHAR, 

34 014422 013746 001154 MOV $NULL ,- (SP) :3GE1 fe tail fig: CHARS. NEEDED 

Hy 014426 105366 000001 7$: DECB 1(SP) “DOES A NULL LEED TO BE TYPED? 


014432 002770 BLT 6$ ::BR IF NO=--GO POP THE NULL OFF OF STACK 





TOVVUVVVIVSCVVVVOVVOANAMAOAOTWDAM WMAMWMAMmMMVDIDVVOIVIOD WWOWOWMODOVOIOVOIOD WWOWWD OME 
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CVMNB-8 MNCD]I DIAGNOST! MACY11 30G6(1063) manatee 

CVMNBB .P1 1 08-AUG-79 16: 38 TYPE ROUTINE 
(1) 014434 004737 014472 JSR PC, ,STYPEC :7GO TYPE A NULL 
(1) 014440 105337 014536 DECB $CHARCNT 37D0 a COUNT AS A COUNT 
( . » 014444 000770 BR sé 
(1) 
ey ;HORIZONTAL TAB PROCESSOR 
(1) 
(1) 014446 112716 000040 83: MOVB #" (SP) ;ZREPLACE TAB WITH SPACE D 
(1) 014452 004737 014472 9$: JSR PC ,$TYPEC s TYPE A SPACE D 
(1) 014456 132737 000007 014536 BITB #7, $CHARCNT ; ;BRANCH IF NOT AT D 
(1) 014464 001372 BNE o$ 32 TAB STOP DI 
(1) 014466 005726 TST (SP) + ;3zPOP SPACE OFF STACK 
(1) 014470 000724 BR 2$ ;7GET NEXT CHARACTER DI 
(1) 014472 105777 164452 $TYPEC: TSTB a$TPS WAIT UNTIL PRINTER IS READY Di 
(1) 014476 100375 BPL $TYPEC D! 
(1) 014500 116677 Q00002 164444 MOVB 2(SP) ,a$TPB ;,LOAD CHAR TO BE TYPED INTO DATA REG. D 
(1) 014506 122766 000015 000002 - CMPB #CR,2(SP) 3731S CHARACTER A CARRIAGE RETURN? D 
(1) 014514 1003 BNE 1$ : BRANCH IF NO D 
(1) 014516 105037 014536 : CLRB $CHARCNT a CHARACTER COUNT D 
(1) 014522 BR $TYPEX T D 
(1) 014524 122766 000012 000002 15: CMPB LF ,2(SP) iis CHARACTER A LINE FEED? D 
(1) 014532 001402 BEQ $TYPEX “BRANCH IF YES D 
(1) 014534 105227 INCB (PC) + : COUNT THE CHARACTER D 
(1) 014536 $CHARCNT:.WORD 0 ; CHARACTER COUNT STORAGE D 
oF 014540 000207 $TYPEX: RTS PC D 
(1) DI 
ri .SBTTL BINARY TO ASCII AND TYPE ROUTINE 
(1) 
(2) FLERE RARER AREER ERERRAERRERAERRRKERERE EERE 
(1) :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
SE ; *BINARY-ASCII NUMBER AND TYPE IT. 
(1) > *CALL: 
(1) 3s MOV NUMBER , - (SP) : ;NUMBER TO BE TYPED 
a. i* TYPBN se TYPE IT 
(1) 
(1) 014542 010146 $TYPBN: MOV R1,-(SP) 77 SAVE R1 ON THE STACK 
(1) 014544 016601 000006 MOV 6(SP),R1 3iGET THE ONPUT NUMBER 
(1) 014550 261 . SEC 2éSET "'C'' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
(1) 014552 112737 000060 014614 1$: MOVB #'O,$BIN :SET CHARACTER TO AN ASCII ‘0'*. 
(1) 014560 006101 ROL R1 :3GET THIS BIT 
(1) 014562 0014 BEQ 2$ ; DONE ? 
(1) 014564 105537 014614 ADCB $SBIN S=NO==SET THE CHARACTER EQUAL ‘TO THIS BIT 
(1) 014570 104401 014614 TYPE ,$BIN ::GO TYPE THIS BIT 
(1) 014574 000241 CLE sith. “'C'' SO CAN KEEP TRACK ‘oF BITS 
(1) 014576 000765 = BR 1$ > DO THE NEXT BIT 
(1) 014600 012601 2, gees MOV (SP)+,R1. OP THE STACK INTO R1 
(1) 014602 01 000002 000004 MOV 2(SP) ,4(SP) oS a kinT THE STACK 
(1) 014610 012616 MOV (SP) +, (SP) 
(1) 014612 RT] RETURN TO USER 
(1) 014614 000 $RIN: -BYTE 0,0 >7STORAGE FOR ASCII CHAR. AND TERMINATOR 
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CVMNBB .P7 1 08-AUG-79 10:38 BINARY TO ASCII AND TYPE ROUTINE SEQ 0058 


954 

Mit .SBTTL TRAP DECODER 

(1) 

(2) PL RAA RARER ERE REAR R EERE EERE ERROR EERE RRR EER EERE 

(1) 2*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
(1) ;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(7) >*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

(1) 3*GO TO THAT ROUTINE. 


(1) 

(1) 014616 010046 $TRAP: MOV RO,-(SP) ::SAVE RO 

(1) 014620 016600 000002 MOV 2(SP) ,RO +:GET TRAP ADDRESS 

(1) 014624 005740 TST =(RO) seneny Ot 2 

(1) 014626 111000 MOVB (RO) ,RO :GET RIGHT BYTE OF TRAP 

(1) 014630 006300 ASL RO -=POSITION FOR INDEXING 

(1) 014632 616000 014652 ; MOV $TRPAD (RO) .RO : INDEX TO TABLE 

) 014636 2 RTS RO +260 TO ROUTINE 

( 

(1) 

i 37 THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 

(1) 014640 011646 $TRAP2: MOV (SP) ,=(SP) ziMOVE THE PC DOWN 

(1) 014642 016666 000006 000002 MOV 4(SP),2(SP) >:MOVE THE PSw DOWN 

1) 014650 000002 RT] s RESTORE THE PSw 

(1) 

@ .SBITL TRAP TABLE 

(5) 

(3) :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

(3) >*RY THE ‘'TRAP’' INSTRUCTION. 

(5) 

oh 3 ROUT INE 

(3) 014652 014640 $TRPAD: .WORD $TRAP2 

(3), 014654 014260 $TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

(3) 014656 013042 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 014660 013016 $TYPOS ::CALL=TYPOS TRAP+3(104403) 1YPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 014662 013056 $TYPON ;;:CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 014664 013244 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
3) 014666 014542 $TYPBN ::CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 

( 

GB) 014670 011214 $GTSWR ;;:CALL=GTSWR TRAP+7(104407) GET SOFT=SWR SETTING 

( 

(3) 016672 011124 | $CKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOFT-SwWR 

(3) 014674 011466 $RDCHR ;;:CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
3) 014676 011556 $RDLIN ;;:CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 

iH 


014700 014156 $RDOCT 3; CALL=RDOCT TRAP+12(104413) READ AN OCTAL NUMBER FROM TTy 


ee | 


H 
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CVMNBB P71) 08=-AUG-79 10:38 TRAP TABLE SEQ 0059 
957 ;* 
958 3*THIS ROUTINE WILL ogi ey PROGRAM 
4 ¢ #F ROM INTERRUPTS (BAD ONES 
961 «A THE TRAP CATCHER IS SET UP FOR 
962 ie . WORD +2 
pez ;* JSR PC .RO 
965 s*ILLEGAL INERRUPTS OR INTERRUPTS TO THE WRONG VECTOR 
a8 ;*GOTO THE VECTOR AND PICK UP THE ‘'.+2’' AS AN ADDRESS 
968 ;*AND °'4700°' AS NEW STATUS. 
969 s*THE .+#2 AS A PC WILL CAUSE EXECUTION OF THE weak a PC,RO* (AN ILLEGAL INSTR... 
970 ; *AND TRAP TO LOCATION ‘4''. IN LOCATION 4 WE HAVE A 
971 s*POINTER HERE. IF THIS CONDITION CAUSES A TRAP TO LOC. 4. 
972 ;*WE WILi REPORT IT IN THE SAME MANNER THAT WE WOULD 
973 ;*REPORT ANY OTHER ERROR. 
974 ;*IF A BUSS ERROR TRAP DID OCCUR AND CAUSE A TRAP TO 4. 
2 s*WE WILL HALT. 
977 014702 011637 015154 IOTRD: MOV (6), TRTO 7GET WHERE WE CAME TO. 
a 014706 162737 000004 015154 SUB #4,TRTO ;FORM READ ADDR. 
980 014714 023727 015154 001000 - CMP TRTO,41000 ;DID TRAP FROM LESS THAN ADDR. 1000? 
4 014722 003402 BLE 2$ ;NO=CONTINUE . 
983 014724 000000 1$: HAL T zA BUSS ERROR TIME OUT TRAP BROUGHT US HERE. 
cae ;ADDRESS CONTAINED IN TRTO. 
aa 1 014726 000776 BR 1$ ;DONT'T ALLOW CONTINUE. 
988 014730 016637 0000046 015156 2$: MOV 4(6),TRFRO ;GET TRAPPED FROM ADDR. 
bs 44 014736 062706 000004 ADD #4 ,SP ;ADJUST THE STACK POINTER 
991 014742 122737 000037 001102 CMPB #37,.$TSTNM node: eg INTERRUPT TESTS? 
992 014750 003402 BLE 3$ (O MUST BE WRONG VECTOR. 
993 SSSSSSSSEBSSSSSESSSSSS55>>>€RROM <c<HSESSSSSSOSSSSSSESSSESSSSSSESSS 
994 014752 104012 FRR 12 ;ERROR! ILLEGAL INTERRUPT 
995 i ; INTERRUPT TO WRONG NECTOR. 
996 :IF TEST NO. IS LESS THAN 37,ITS 
997 [LIKELY (BUT NO EXCLUSIVELY)TO BE A 
998 DEVICE OTHER THAN THE DEVICE UNDER TEST, 
O94 IF THE INTERRUPT OCCURED 
1000 “DURING AN INTERRUPT TEST, I'D 
1001 SUSPECT A PROBLEM WITH THE DEVICE UNDER TEST. 
1002 ;IF THE ADDRESS THE INTERRUPT 
1003 *VECTORED TO IS WITHIN THE RANGE OF 
1004 : VECTORS ASSIGNED TO THE DEVICE, 
1005 ae 7 THEN I°D SUSPECT THE Pevice 
1006 ’ ; INTERRUPTED ILLEGALL 
1007 7; IF THE ADDRESS THE INTERRUPT 
1008 :VECTORED TO IS OUTSIDE OF THE 
1009 “RANGE ASSIGNED TO THE DEVICE 
1010 71°D SUSPECT THAT THE 
1011 ; ; ;DEVICE PUT THE WRONG INTERRUPT 


1012 : VECTOR ON THE BUS DURING THE INTERRUPT 
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CVMNBB P11 08-AUG-79 10:38 TRAP TABLE . SEQ 0060 
1013 :PROCESS. 
1014 NOTE : 
1015 FOR THIS ERROR = DON'T USE 
1016 "OOP ON ERROR’’ OPTION. 
1017 “ALSO EXPECT THAT THE INTERRUPT rg3T TO 
1018 WILL REPORT THAT THE DEVICE DIDN'T 
1019 : INTERRUPT. 
1020. ‘FOLLOW THE RECOMMENDED PROCEDURE 
1021 * IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
156 FOR LOOPING ON TEST. 
1024 : SESS$SSSSSSSSSESSSSESSESEES>>>ERROR<<<$$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1025 014754 000002 RTI 
1026 014756 022626 3$: CMP (SP)+,(SP)+ CLEAN OFF STACK 
1027 014760 005737 001176 TST $PASS ;1S THIS THE FIRST PASS? 
1028 014764 001025 BNE 4$ 7zNO, DON'T REPORT 
1029 014766 104401 017756 TYPE, VITMSG. TELL OPER. 
1030 014772 013746 001202 MOV $UNIT,-(SP) GET UNIT # 
1031 014776 104405 TYPDS 
1032 015000 000240 NOP 
1033 015002 000240 NOP 
1034 015004 104401 020011 TYPE .VTMSG3 TYPE "EXPECTED INTR. AT °' 
1035 015010 013746 001430 : MOV DIDINV,-(SP) :;SAVE DIDINV FOR TYPEOUT 

(1) 015014 104403 TYPOS 3:G0 TYPE-~OCTAL ASCII 

(1) 015016 003 BYTE 3 7: TYPE 3 DIGIT(S) 

(1) 015017 001 BYTE 1 3; TYPE LEADING ZEROS T 
1036 015020 104401 020041 TYPE ,VTMSG1 TYPE "' RECEIVED INTR. AT “' T 
1037 015024 013746 015154 MOV TRTO,-(SP) :; SAVE TRTO FOR TYPEOUT T 

(1) 015030 104403 TYPOS ::GO_ TYPE--OCTAL ASCII Ul 

(1) 015032 003 -BYTE 3 7; TYPE 3 DIGIT(S) 

(1) 015033 001 BYTE 1 :z TYPE LEADING ZEROS V, 
1038 015034 104401 020071 TYPE , VTMSG2 TYPE ‘RESTARTING TEST'' V, 
1039 015040 013777 001432 164362 4$: MOV DIDINS,@DIDINV ;RESTORE INCORRECT VECTOR VI 
1060 015046 013777 001436 164360 MOV DIEINS, aDIE INV vl 
1041 015054 012777 164354 MOV #4700, aDIEINS vl 
1042 015062 012777 004700 164342 MOV #4700,@DIDINS  ;LOCATION WITH .+2 + 4700 Vv 
1043 015070 013737 015154 001430 MOV TRTO,DIDINV SET UP ACTUAL VECTOR LOCATION Vv 
1044 015076 04 000007 0014 BIC #7 .DIDINV 7CLR LOW BITS V 
1045 015104 013737 001430 001432 MOV DIDINV,DIDINS  :SET UP NEW VECTOR VALUES Vv 
1046 015112 013737 001430 001434 MOV DIDINV,DIEINV my 
1047 015120 013737 001430 001436 MOV DIDINV,DIEINS wi 
1048 015126 062737 000002 001432 ADD #2,DIDINS $, 
1049 015134 062737 000004 001434 ADD #4 ,DIEINV $ 
1050 015142 062737 000006 001436 ADD #6, DIEINS $ 
1051 015150 000177 163732 JMP @$LPADR START TEST OVER AGAIN. $, 
1052 015154 000000 TRTO: WORD O CONTAINS ADDR. WE TRAPPED OR INTERRUPTED TO. % 
1053 015156 000000 TRFRO: .WORD 0 CONTAINS ADDR. WE TRAPPED OR INTR. FROM, $, 

4 $, 
$i 
$ 
$) 




















1059 
1060 


1061 
1062 


1067 
1068 
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CVMNBB P71 


015612 
015613 
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040510 
012 


042516 


051127 


052040 
042103 


052040 


051505 
042507 


051514 
040526 


024040 


051505 
042050 


042516 
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ASCII MESSAGES 


.SBITL 
. PRIMEO: 


ASCII MESSAGES 
-BYTE 15,12 
ASCII \L = LOGIC TEST WITH OR WITHOUT TEST MODULE CONNECTED\ 


‘BYTE 15,12 
"ASCII \W'= WRAPAROUND LOGIC TEST WITH MNCDO CONNECTED TO MNCDI\ 


.BYTE 15,12 
"ASCII. \T = TYPEQUT LOOP FOR MNCDI TEST MODULE SWITCHES\ 


-BYTE 15,12 
ASCII \G = GET NEW SWITCH REGISTER VALUE\ 


.BYTE 15,12 
-ASCII  \B = (DIGITAL IND BASE’ OR VECTOR ADDRESS CHANGES\ 


<OYTE . 15,12 
ASCII \O = (DIGITAL OUT) BASE ADDRESS CHANGE \ 


15,12 





$I 
$I 
SI 
$I 
$I 
St 
Si 
St 
$i 
$i 
$I 
$I 
$I 
$I 
$I 
$i 
$I 
$ 
$I 
$I 
$I 
$I 
$I 
$| 
$| 
$! 
$! 
$i 
$ 


PAAAAAMAM MH 
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1070 015615 110 036440 044040 -ASCIZ \H = HELP THE OPERATOR AND RETYPE THIS LIST \ 
015622 046105 020120 044124 | 


015666 
1071 015674 015 012 DOT: BYTE 1 
1072 015676 054524 042520 052040 ASCIZ / 


THE "TEST CHARACTER’’ THEN DEPRESS ‘RETURN KEY’ / 
015704 042510 021040 042524 





org 0197396 054505 020042 000040 
1074 015764 0467115 042103 020117 EMI: -ASCIZ \MNCDO (DIGITAL OUT) DOES NOT EXIST <BUS ERROR> CHECK ADDRESS SWITC 
015772: 042050 043511 | e 


$ 
$i 
$I 
$i 
5 
v 
5 
$! 
+] 
$s 
$s! 
b | 
$ 
$s 
v 
s 
$s 
w 
w 
w 
w 
s 
s 
5] 
$ 
$! 
$! 


016066 
1075 016074 047115 042103 020117 EM2: -ASCIZ \MNCDO (DIGITAL OUT) DATA REGISTER ERROR\ 
1076 016144 047115 042103 020117 EM3: -ASCIZ \MNCDO (DIGITAL OUT) STATUS REGISTER ERROR\ 


1 : 
1077 016216 047115 042103 020117 EM4: -ASCIZ \MNCDO (DIGITAL OUT) INTERRUPT ERROR\ 


000122 ; 
1078 016262 047115 042103 Reet EMS: -ASCIZ \MNCDI (DIGITAL IND DOES NOT EXIST <BUS ERROR> CHECK ADDRESS SWITCH 


PAAAAAMMMAMMMMMMMAMMMMNMNMNNYH 


1 
016312 047516 020124 0541 





C 


CVMNB-B MNCDI 
VMNBB 


-P11 


.- * 04 
1079 
0 


1080 


1082 


1083 


1084 


1085 


320 


AOo 


017004 
017005 


DIAGNOSTIC 


08-AUG-79 10:38 


4 
051122 
041516 
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ASCII MESSAGES 


041074 


044103. 


044504 
044507 


051105 
020111 


051105 


020111 
004 


24 
051117 
044504 


EM6: 


EM7: 


EM10: 


EM11: 


EM12: 


EM13: 


EM14: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


\MNCD I 


\MNCD I 


\MNCD I 


\MNCD J 


/MNCD I 


/MNCD I 


/MNCDI 


© * 
‘ te a a — “ 


(DIGITAL. IN) STIMULUS REGISTER ERROR\ 


(DIGITAL IN) STATUS REGISTER ERROR\ 


DATA REGISTER ERROR\ 


(DIGITAL IN) 


(DIGITAL IN) INTERRUPT ERROR\ 


MNCDO DIGITAL INPUT-OUTPUT WRAPAROUND STATUS ERROR/ 


MNCDO DIGITAL INPUT-OUTPUT WRAPAROUND DATA ERROR/ 


INCORRECT I.D. VALUE FOR MNCDI/ 


SEQ 0063 


PARAM AAR AMAL 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 





CVMNB-B MNCDI 
VMNBB . P11 





DIAGNOSTIC 
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017012 041516 
017020 052103 
017026 020056 
17034 020105 
017042 047115 
017050 
017052 042103 
17 043511 
017 044440 
017074 046114 
017102 044440 
017110 047440 
017116 050101 
017123 041516 
017130 044504 
17136 020114 
017144 054105 
017152 043516 
017160 044504 
017166 042514 
017174 51040 
017202 042116 
017207 051120 
017214 020115 
017222 052103 
017230 
017231 047115 
17236 042050 
017244 046101 
017252 051447 
017260 
017262 052111 
17270 041520 
017276 051503 
017304 042124 
017312 
017313 04451 
017320 050122 
017326 041440 
017334 020116 
017342 04711 
017350 
017353 044516 
017 050122 
017 051440 
017374 047517 
017402 040 042101 
017407 25 04451 
017414 051105 050122 
017422 047111 04144 
017430 043411 047517 
017436 041040 042101 
017443 25 044516 
017450 051105 050122 
017456 11 042040 
017464 11 047517 
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ASCII MESSAGES 


051117 


020040 
042411 
047411 
004522 
052101 
004524 
004503 


FOUND2: .ASCIZ 


DH1:* ''“ASCIZ 


/MNCDI (DIGITAL IN) ILLEGAL INTR. OR TRAP/ 


/MNCDI (DIGITAL IN) EXISTING MNCDI FAILED TO RESPOND/ 


<200>/PROGRAM DETECTED/ 


\ MNCDI (DIGITAL IN)*S  \ 

- - eens, ee v 
/UNIT . ERRPC ‘OUfCSR OUTDAT/ 
/UNIT ERRPC IN CSR IN DIR IN SBR/ 
/UNIT ERRPC IN SBR GOOD BAD/ 


/UNIT ERRPC IN CSR GOOD BAL / 


/UNIT  ERRPC IN DIR GOOD BAD / 





22tTOaTm™m 


S 
Ti 
T 
T 
T 
T 
T 
T 
T 
$ 
$ 
$ 
$ 
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CVMNB-8 MNCDI DIAGNOSTIC 
CVMNBB.P11 08-AUG-79 10:38 ASCII MESSAGES SEQ 0065 
017472 040502 000104 
1095 017476 0467125 052111 042411 DH11: .ASCIZ /UNIT ERRPC IN CSR/ 
017504 051122 041520 044411 
017512 020116 051503 000122 
1096 017520 047125 052111 042411 DH12: .ASCIZ /UNIT ERRPC OUTCSR IN CSR GOOD BAD/ 
017526 051122 041520 047411 
017534 052125 051503 004522 
017542 047111 041440 051123 
017550 043411 047517 504 
017556 041040 042101 000 
1097 017563 125 044516 004524 DH13: .ASCIZ /UNIT ERROC OUTDOR IN DIR GOOD BAD/ 
017570 051105 047522 004503 
017576 052517 042124 051117 
604 0444 020116 044504 
017612 004522 07 042117 


1098 Bi eSe 047125 poet 042411 DH15: .ASCIZ /UNIT ~~ ERRPC TO FROM ADRS./ 


000 
1099 017661 125 044516 004524 DH16: eASCIZ /UNIT ~~ ERRPC WERE  ARE/ 


017674 020040 053440 051105 
017702 020105 020040 051101 
017710 000105 


1100 017712 035440 047524 040524 ERRTOT: .ASCIZ / ;TOTAL ERROR COUNT = / 
017720 020114 051105 047522 
017726 020122 047503 047125 
0177 000 


1101 017741 040 041073 042101 MESGD: .ASCIZ / ;BAD UNITS / 
017746 one 044516 051524 


1102 017756 046600 041516 044504 VITMSG: .ASCIZ <200>/MNCDI (DIGITAL IN) UNIT 4#/ 
017764 024040 044504 044507 
017772 040524 020114 047111 
020000 020051 wah =) 052111 


0006 
1103 020011 200 954105 042520 VTMSG3: .ASCIZ <200>/EXPECTED INTERRUPT AT / 


020032 052120 040440 020124 
020040 000 
1104 020041 040 042522 042503 VIMSG1: .ASCIZ / RECEIVED INTERRUPT AT / 
020046 053111 042105 044440 
020054 052116 051105 052522 
020062 si 040440 020124 


1105 020071 200 046120 040505 VIMSG2: .ASCII1 <200>/PLEASE CHECK VECTOR SWITCHES/<200> 


020120 052111 044103 051505 
200 


1106 020127 011 042522 052123 ASCIZ / RESTARTING LOGIC TEST/ 
020134 051101 044524 043516 
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020142 046040 047517 041511 


1107 020156 01 012 SETUPO: .BYTE 15,12 
1108 020160 thy. atetz Oe eee -ASCII  \ENSURE MNCDI (DIGITAL IN) DATA SWITCH IS IN THE ‘="* POSITION\ 





020246 044523 044524 047117 

1109 020254 015 012 000 Marve. - 15, 12,9 

1110 020257 103 047117 042516 SETUP1: .ASCII \CONNECT MNCDI (DIGITAL IN) TO THE TESTER\ 
020264 052103 046440 041516 
020272 504 024040 044504 


1111 020327 01 O12 000 -BYTE 15,12,0 
1112 020332 015 O12 SETUP2: .BYTE 15,12 
1113 020334 047115 042103 020111 ASCII \MNCDI (DIGITAL IN) MUST BE CONNECTED TG MNCDO (DIGITAL OUT)\ 
020342 042050 043511 052111 
020350 046101 044440 024516 
020356 6440 051525 020124 
042502 041440 04 


4 020427 015 012 000 BYTE 15, 12,0 
5 020432 005015 047115 042103 ADROUT: .ASCIZ <15><i2>/MNCDO (DIGITAL OUT) BUS ADDRESS </ 


01 
1116 020676 005015 947115 042103 ADRIN: .ASCIZ <15><12>/MNCDI (DIGITAL IN) BUS ADDRESS </ 
04 020111 042050 043511 
020512 052111 046101 044440 
020520 024516 1040 051525 
020526 040440 042104 042522 
020534 051523 036040 000 
1117 020541 015 046412 041516 VECIN: .ASCIZ:° <15><12>/MNCDI (DIGITAL IN) VECTOR ADDRESS </ 
020546 044504 024040 044504 
020554 044507 040524 020114 
020562 047111 042526 
020570 052103 051117 040440 
020576 042104 04 051523 
020604 036040 000 
1118 020607 076 037440 000040 ENDOUT: .ASCIZ /> ? / 
1119 020614 026440 000040 ADASH: .ASCIZ / - / 
1120 020620 015 012 000 TCRLF: .BYTE 15,12,0 
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1121 -EVEN 
1122 020624 001532 001116 001404 DTI: UNI TBD ,SERRPC ,OCSR,DOR,0 


1123 36 001532 001116 001414 DT5: UNI TBD ,SERRPC,1CSR,DIR, SBR,0 
020644 001420 001424 000000 
1124 020652 001532 001116 001424 DTé: UNI TBD ,SERRPC , SBR, $GDDAT , $BDDAT ,0 
001124 001126 000000 
1125 02 001532 001116 001414 DT7: UNI TBD ,SERRPC,1CSR,$GDDAT ,$BDDAT ,0 
001124 001126 000000 
1126 020702 001532 001116 001420 DT10: UNITBD,SERRPC,DIR,S$GDDAT,$HDDAT ,0 
020710 001124 001126 000000 
1127 ose ie 001532 001116 001414 DT11:  UNITBD,$ERRPC,ICSR,0 
1128 020726 001532 001116 001404 DT12:  UNITBD,SERRPC,OCSR,ICSR,$GDDAT ,$8DDAT ,0 
athe: 001414 001124 001126 
1129 020744 001532 001116 001410 DT13:  UNITBD,$ERRPC,DOR,DIR,$GDDAT ,$BDDAT ,0 
shy 001420 001124 001126 
1130 020762 001532 001116 015154 DT15: UNITBD,$ERRPC,TRTO,TRFRO,O 
020770 015156 0 


00000 
1131 020774 001532 001116 001442 DT16: UNITBD,$ERRPC,TEMP,$UNIT,0 
1132 021006 oon 000 000 DFO: -BYTE 0,0,0,0,0,0.0,0,0,0,0 


021017 
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61 
61 


11194 


61 188 189 190 191 
3248 882 936* 


SEQ 0068 
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CVMNBB P11 08-AUG-79 10:38 CROSS REFERENCE TABLE -- USER SYMBOLS 

BASEXC 003252 253 3784 

BASEXD 003210 266 3654 

BEGIN 001542 48 2144 943 

BITDAT= 01 2084 555 560 569 579 

BITEXT= 004000 2094 484 492 501 513 523 524 533 534 
608 624 646 647 726 ; 

BITO = 000001 204 323 442 444 578 738 758 781 

BITOO = 000001 204 

BITO1 = 000002 204 

BITO2 = 000004 20" 

BITO3 = 000010 204 

BITO4 = 000020 204 

BITOS = 000040 204 

BITO6 = 000100 204 

BITO7 = 000200 204 

BITO8 = 000400 204 919 

BITO9 = 001000 OF 919 936 ; 

BIT1 = 000002 204 448 465 §21 522 531 532 S45.° -565 605 623 645 696 

: 699 737 741 et ere 

B1T10 = 002000 204 

BIT11 = 000 204 209 919 

BIT12 = 010000 204 208 458 605 821 

BIT13 = 020000 204 936 

BIT14 = 040000 204 460 645 919 

BIT15 = 100000 204 315 521 524 534 646 ' 647 724 ee ts 823 824 834 

BIT2 = 204 449 465 512 514 599 709 712 785 792 806 822 823 

BIT3 = 000010 204 450 

BIT4 = 000020 204 452 465 560 579 594 605 757 

BITS = cO# 453 560 579 584 594 605 607 757 

BIT6 = 000100 204 242 445 454 461 503 547 598 623 873 

BIT? . = 000200 204 483 484 521 523 524 531 533 534 606 608 624 646 
647 686 697 .tiéf'@) 726 770 789 792 805 823 824 834 

BIT8 = 00 204 456 B22 823 

BIT9 = 001000 204 457 

BPTVEC= 14 204 

CKSWR = 104410 919 936 9554 

CR z= 15 204 $51 

CRLF = 200 204 227 951 

CTRCHA 003422 403* 404* 405 409 4134 

CTRLCG 00334 4014 885 894 919 936 

DDISP = 177570 204 61 219 

DELAYO 010550 687 700 713 728 793 809 827 837 9114 

DFO 021006 64 66 68 70 72 74 76 78 80 82 84 11324 

DH1 017262 64 10904 

DH10 17443 78 10944 

DH11 017476 80 10954 

DH12 017520 10964 

DH13 017563 68 10974 

DH15 017626 82 10984 

DH16 17661 84 10994 

DHS 017313 72 10914 

DH6 017353 74 10924 

DH7 017407 70 76 10934 

DIDATA 010354 269 8894 , 

DIDINS 001432 1724 619* 635 636* 861* 862* 1039 1042* 10452 1048 

DIDINV 001430 1714 339 618* 635* 860* 861 863 865 . 1035 1039* 1043 1044* 1045 
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1046 1047 
DIEINS 001436 1754 344 641* 658 659% 865* 866* 1040 1041* 1047* 1950s 
DIEINV 001434 1744 640* 658* 863* 864* 1040* 1046* 1049* 
DIR 001420 1664 433 511* 556 562 571 582 


583* 586 595 600 ~— 610 681* 
694* 707* 735* 745 755* 765 | 786* 804* 820* 833* 893* 897 900 
1123 1126 1129 


DISPLA 001142 614 219* 919* 936* 
DISPRE 000174 44a 219 
601410 1604 685* 698* 7118 720* 742* 760* 780* 783* 790* 803* 808* 8198 
826* 835* 1122 1129 
DOR 1 143 1614 5] 
DOT 015674 247 = 10714 
DSWR = 177570 204 61 219 
DT1 020624 — 64 11224 
DT10 020702 78 11264 
D111 020716 80 112748 
DT12 020726 66 11 
DT13 02074 68 11294 
DT15 020762 82 11304 
D116 020774 84 11314 
DIS 020636 72 11234 
DT6é 020652 74 112464 
DT7 020666 70 76 11254 
DWARF 001440 1774 214* 217% 234 262* 272* 305 421 678 722 


las) 
fe] 
R 


ENDOUT 020607 369 382 391 11184 
ERRTOT 017712 876 11004 


0 
001414 
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CVMNB=8 MNCDI DIAGNOSTIC | 

CVMNBB P11 0B-AUG-79 10:38 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0071 
696* 701 709* 714 726* 727s 737* 7418 743 757* 763 770* 785« 
tay mg 805* 810 822* 824% 828 834* 838 892* 895 tles: «leo 
11 | 

ICSR1 001416 1644 464* 535* i 

1OTRD 014702 42 301 437 440 9774 

IOTVEC= 000020 204 2198 

LF = 000072 20F 951 

LOGIC 002520 230 263 2808 886 

LOGICO 002514 273 2798 

MASKNM 001460 1854 281* 323* 856* 879 929 936 

MESGD 017741 881 11014 | 

MTEST 002274 235 2404 259 

MTEST1 002300 232 41a 257 275 375 $97 408 918 

OCSR 001404 1578 330 6R4* 697* 710 725" - 729 736% .756* 849 1122 1128 

OCSR1 001406 1584 

PIRQ = 177772 204 

PIRQVE= 240 204 

PRIMEO 015160 240 1057# 

PRO = 204 

PRI = @) 204 

PR2 = 000100 204 

PR3 == 000140 204 

PRE = 200 20a 

PRS = 000240 208 

PR6 = 300 208 

PR7 = 340 208 

PS = 177776 20a 

PSW = 177776 

PWRMSG 01411 943 9448 

PWRVEC= 000024 204 2198 943« 

RBEGO 001566 213 216 2198 

RDCHR = 104471 918 9554 

RDLIN = 104412 248 947 9554 

RDOCT = 104413 370 383 392 955¢a 

REMAIN 007772 439 680 8444 

RESTRT 001534 49 2124 

RESVEC= 000010 204 

RUNIT 002512 249% 250* 251 254 258 260 264 267 270 2764 

Belst 001424 nee a 442* 444% 445* 446* 510* 682* 695* 708* 784* 788* 825* 

> 

SBR? 001426 169" 446* 854 

SETUPO 020156 233 11074 

SETUP1 020 236 1110" 

SETUP2 020332 279 1112 

STACK = 0011 208 219 889 

STKLMT= 177774 208 

001140 61a 2198 227 289 918 919 936 943s 

SWREG 000176 65#@° = =219 2e7 918 

SwO = 000001 204 

SwOO = 000001 208 

SwO1 = 000002 20m 

SWO2 = 000004 204 

SwO3 = 000010 208 

SWO4 = 000020 20" 

SwOS = 000040 20m 

SwO6 = 000100 20a 
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SwO7 = 000200 208 
Sw08 = 000400 208 
swO9 = 001000 208 
Sw) = 2 208 
SwW10 = 002000 208 
Sw11 = 004000 208 
SWwi2 = 010000 coe 289 
1Swi3 = 020000 o0F 
SwW14 = 040000 20" 
Sw15 = 100000 Pe) 
Sw2 = 000004 Pe) j 
Sw3 = = 000910 20a - 
SWw6 = =_- 000020 me) 
Sw5 = 000040 204 
Sw6 = 000100 20e 
W/ «= 200 208 
SWB = 00 20" 
Sw9 == 001000 rae) 3 
TBI TVE= 14 2 
TCRLF 020620 902 11204 
TEMP 001442 1784 3198 444" 578+ 580 583 590* 595* 738* 740 750* 758* 760 
761 771* 781* 788 790 801 815* 821* 825 826 835 B42* 1131 
TEMP 001444 1794 801* 802* 808 : ; 
TEMP2 001446 1804 2l2* 2158 218* 23) 
TESTER 001554 50 2178 
TKVEC = 000060 204 918 
TPVEC = 204 
TRAPVE = 204 219 
TRFRO 015156 988* 10534 1130 
TRTO 015154 977* 978 980 1037 1043 10524 1130 
TRIVEC= 000014 204 
TSTRO 001450 1814 237 
TSTR2 001452 1824 423* 
TSTR4 001454 1834 424 
TSTR6 001456 1844 
TST1 003424 326 4704 868 
TST10 §©004166 448 4494 
TST11 004252 449 4504 
TST12 004336 450 4524 
TST13 =©004422 452 4534 
TST14 506 453 4544 
TST15 004572 454 4564 
TST16 004656 456 4574 
TST17 =—©0046742 457 4584 
TST2 003476 422 428 4304 
TST20 005026 458 4604 
TST21 005112 460 4614 
TST22 005156 461 4624 
TST23 005220 468 4718 
TST24 005262 477 4814 
TST25 005324 487 4904 
TST26 86005 496 4998 
TST27 §©005436 5 5094 
TST3 003562 442m 
TST3O0 ©=—6. 005514 517 5204 


CVMNB-8 MNCDI 
CVMNBB P11 
TST32 564 
T$T33 §=©6005732 
TST34 

TST35 §=©006172 
TST36 «= 006252 
TST37 ©006332 
TST4 003634 
TST4O 006444 
TST41 006566 
TST42 

TST463 006752 
TST44 §=00704 
TST4S § =: 0071354 
TST46 =—.00 7250 
TST47 =—.00370 
TSsT5 003720 
TSTSO =©—.007612 
TST51 007772 
TST6 003764 
TST? 004102 
TYPBN = 104406 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
UNITBD 001532 
VADDR 001464 
VADDRO 001462 
VECIN 020541 
VECLST 001466 
VE COF F 1506 
V™MSG 017756 
VT™MSG1 20041 
VTMSG2 020071 
V™MSG3 020011 
WAITO 010442 
WHICHU 012404 
SAPTHD 1 
SASTAT= xeeane 
SATYC 013514 
SATY1 013470 
$ATY3 013476 
$ATYS 013506 
$AUTOB 0011 
$BASE 001244 
$BDADR 001122 
$BDDAT 001126 


DIAGNOSTIC 
08-AUG-79 10:38 


5418 
5534 
5764 


MACY11 306(1063) 
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936 
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932s 


9554 


247 


881 
9554 


918 


1122 


1031 


274 


884 
1029 


937 


1123 


279 307 
891 899 
1034 1036 
9554 
1126 1125 
427 442* 
458* 460* 
515* 516 
572 586* 
0 745* 
1126 1125 


746 
1126 


11 


65« 
28 


1128 


378 
937 


1129 


SEQ 0073 


1130 


CVMNB=8 MNCDI 


CVMNBB . 


Pi) 


012052 


DIAGNOSTIC 
38 


918 


331 


936 


937 


367 


937 


936 
936 


951 


1122 


877 
936 


373s 


951 


940 


1123 


936* 


839 
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951 
Gr, See b>, meme yr.” 
445% 446% 4B 
465% 467 474s 
526 531x537 

? 596* 609 
740* 742 746 
1124 1125 1126 


1127 


449« 
476 - 
5428 
611 
7618 
1128 


1128 


1129 


1130 


SEQ 0074 


1131 








kK 6 
CVMNB-B MNCDI DIAGNOSTIC MACY11 30G(1063) _O8-AUG=79 10:48 PAGE 35-7 


CVMNBB P11 08-AUG-79 10:3 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0075 
SLF 001166 614 918 936 951 : 
SLFLG 013733 9404* 

$SLPADR 001106 614 219* 442* 444* 446* 617* 919* 1051 

SLPERR 001110 614 219* 577* 919* 936 

SMADR1 001222 614 

SMADR2 001226 614 

SMADR3 001232 614 

SMADR4 001236 614 ; 

SMAIL 001170 60 614 219 227 919 936 951 

SMAMS1 001220 614 

SMAMS2 001224 614 

SMAMS3 001230 614 

SMAMS4 001234 614 

SMBADR 001 604 

SMFLG 013732 9404* 

SMNEW 012106 9184 

$MSGAD 0012 614 940* 

SMSGLG 001206 614 940* 

SMSGTY 001170 614 940* 

SMSWR 012075 9184 

$MTYP1 00122 614 

SMTYP2 001225 614 

SMTYP3 001231 614 

SMTYP4 0012 614 

SMXCNT 012402 9194 

$NULL 001154 614 951 

$NWTST= 000001 4204 4304 4424 4444 4454 4464 4484 4494 4504 4524 4534 4544 4564 


4574 4584 4604 4614 4624 4714 4814 4904 4994 5094 5204 5304 5414 
5534 ~~ 5764 5934 6044 6164 6394 6774 6934 7064 7198 7344 7544 7758 


8184 8454 

SOCNT 013240 9384* 
SOMODE 013242 9384* 
SOVER O12 9194 . 
SPASS 001176 614 219* 243* 871* 919 1027 
SPASTM 001006 604 

014076 9434 
SPWRDN 013736 219 9434 

014072 9434 
SPWRUP 014010 9434 
SQUES 001164 614 274 918 936 951 
SRDCHR 011466 9184 955 
SRDDEC= *xaeee UJ 955 
SRDLIN 011556 9184 955 
$RDOCT 014156 o47# 955 
SRDSZ = 000040 9184 
SRTNAD 010246 8714 
SRZ2A = weeeae 955 
SSAVRE= ***ee% UJ 955 
SSAVR6 014106 9434* 
$SCOPE 012120 219 9194 
SSETUP= 000137 2114 219 2e7 871 918 919 936 
SSTUP = 177777 2114 
$SVLAD 012332 9194 
$SVPC = 000106 584 
$SWR = 165400 8a 15 22 61 219 420 430 442 as 445 446 448 449 

450 452 453454 456 re ees 460 461 462 671 481 490 


CVMNB-8 MNCDI 
CVMNBB P11 


LSSWREG * OOT22 -° * 
SSWRMK= 000000 


013016 
001202 


001010 


021021 


cerennne 


001000 


U 
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520 
734 * 


445* 
918 


871* 


224* 


286* 


BBR 


461* 


919s 


225% 


291 


389 


414 
936 


S67 
775 


499» 


936 


940 


295 


395* 


43a 
9374 


553 


coe 


541* 


991 


9514 


308 


74 
9394 


* 576 


845 


593* 


955. 


311 


534 


9404 


-5 
8 


~NNO 


734* 


314 


584 


943 


WGN 


‘sg 


919 


754% 


317 


59" 


9454 


775* 


321* 


604 


951 


6 
11214 


= oe 


943 


845* 


846* 


lf 


’ 677 


847 


219 


a-8 


SEQ, 0076. 
693 


919* 


1030 


871 
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SEQ 0078 
468 477 487 496 506 517 527 538 550 573 601 612 690 703 716 


- HEADE 104 15 


. SETUP 114 211 
. SWRHI 124 22 
. SWRLO 224 
-$ACT1 134 58 . 
.S$APTB 134 614 
. SAPTH 134 60 
.SAPTY 134 940 
SCATC 104 
SCMTA 104 61 
$ECP 104 871 
SERRO 104 936 
SERRT 124 937 

ARM 114 

114 943 

. SRDOC 124 947 
SREAD 114 918 ‘ 
. SSAVE 114 » 
$SCOP 114 919 
. SSPAC 114 
.$S 114 
. STRAP 114 955 
.STYPB 124 952 
$TYPD 124 939 
$TYPE 104 114 951 


- ABS. 021021 000 CON RO mM Aw 2 


ERRORS DETECTED: 0O 


CVMNBB , CVMNBB/ CRF =C VMNBB 
RUN-TIME: 26 13 1 SECONDS 
RUN-TIME RATIO: 166/41=3.9 
CORE USED: 26K (51 PAGES) 


